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VERTICAL CONTROL SYSTEM 
PROGRAM INTRODUCTION 
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VCS PROGRAM STRUCTURE 



GENERAL PURPOSE AND 
UTILITY ROUTINE MODULES 


I/O DRIVERS, INTERRUPT ROUTINES, 
ASSEMBLY LEVEL FUNCTIONS 


MONITOR ROUTINE MACHINE LEVEL FUNCTIONS 








PROGRAM CAPABILITY 

• Sensor Range Error Checking 

9 Multiple RUN Modes (Control Laws) 

9 Mask Control of I/O and Operations 

• NQI Dynamically Self Programming 

o Interactive Initialization 

• Interactive Debug of I/O, Memory 
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OPERATIONAL FEATURES 

Dual Mode: 

0 RUN MODE (AUTOMATIC) 

0 DEBUG MODE (INTERACTIVE) 

System Initialization: 

§ PARAMETER SET FROM RAM 

0 CLEAR RAM BUFFERS 

0 SET UP POINTERS AND DEFAULT FLAGS 

0 OPERATOR INTERACTION 

MENU BASED MODIFICATIONS PROMPT FOR CLASS AND 
ELEMENT CHANGE FLAGS; VARIABLES 
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OPERATIONAL FEATURES (Continued) 


Run: 

INPUT SENSORS (RANGE CHECK) 
CONTROL. FUNCTION COMPUTATION 
OUTPUT CONTROL/DATA 
ERROR TEST 
SYNCHRONIZE TO CLOCK 

Debug: 

INTERACTIVE SENSOR TEST 
OUTPUT TEST 
MEMORY CHECK/DUMP 
RESTART/ INITIALIZE 
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IHTHDS 

AIOIT2 


CHTOUT 

imm 



ihpcd}j 

OUTOSP 


► INPCOU 

SEfUNP 


G1TTDSP 

CLOCK 


CflTRFD 

CNTRRD 


SAVDAT OUTOSP CLOCK 


INTROS INPCOU 


DEUGCI DQUGCO 



FORMAT 

OUTOSP 

INPCOU 


L63 
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setcoutige 


tti m raa (who siwu) 


iTZirj* 
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CLOCK | 
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SAVBAT 
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VCS DATA INPUT/CQNVERSION 


1) INPUT! 


TRANSDUCER 

HARDWARE 

SOFTWARE 

MEMORY 



. / I/O / 

SID 

rx 

I/O 

SENSOR 

L? 

INTERFACE 

I DRIVER r 

INPUT 

BUFFER 


(HAW INPUT) 


2) CONVERSION: 


MEMORY SOFTWARE MEMORY 



3} RANGE CHECK: 


MEMORY SOFTWARE MEMORY 
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VCS MEMORY ALLOCATION 



LOC 


MONITOR COOE 

OOOOH 



9FFH 

CPU 

DATA TABLES (DEFAULT) 

AQOH 

ROM 

MESSAGE CODES 

1FFFH 


VARIABLE SPACE COMMUNICATION 

2000H 


BUFFERS 


CPU 

STACK SPACE 

2FFFH 

RAM 

NOT AVAILABLE 

3000H 

3FFFH 

- 

VCS PROGRAM 

4000H 

ROM 

• EXECUTIVE 

• SUPERVISORS 

• EXECUTION MODULES 

• UTILITY FUNCTIONS 

• I/O DRIVERS 

• FORTRAN RTL 

t MISCELLANEOUS 

67FFH 


SENSOR OATA 
SPECIAL VARIABLES 

7000H 

CMOS 


900QH 

RAM 


168 















I/O PORT NUMBERS 


Tape Recorder 


08 

OUT 

RECHI 

f Recorder 

Data HI byte 

09 

OUT 

RECLC 

,* Recorder 

Data LO byte 

0A 

OUT 

RECCTL 

j Recorder 

Control 

0B 

IN 

RECSTA 

f Recorder 

Status 


10 

OUT 

PICC1 

; Pick Control 1 

11 

IN 

PICS1 

! Pick Status 1 

12 

OUT 

PICC2 


13 

IN 

PICS2 


14 

OUT 

PICC3 

These may not be 

15 

IN 

PICS3 

required. 

16 

OUT 

PICC4 


17 

IN 

PICS4 



Clock 20 Unit 0 

21 Unit 1 

22 Unit 2 

23 Control Port 

24 Counter Output Bit Port (3 bits) 

25 Gate Port 


NBS 30 

31 

32 

33 

34 
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A/D Converter 


30 

OUT 

MROUT 

81 

IN 

M3RXN 

82 

COT 

MROUTC 

33 

OUT 

MSRINC 

84 

IN 

DATA1 

85 

IN 

DATA 2 

Keyboard Display Card 


DO 

IN 

ICDSW 

DO 

OUT 

ICDDATA 

D1 

OUT 

KDCNTL 

DC 

IN/OUT 

CDATA 

DD 

IN/OUT 

CSTAT 

DE 

OUT 

SCNTL 


03 

OUT 

ARMS 

04 

IN 

SWTCH 

05 

IN 

SWTCH 

06 

OUT 

STAT1 

07 

OUT 

STAT2 


; Multiplexer out rog. 

; Multiplexor Statue Port 
? Multiplexer Out Control Port 
; Multiplexer Control Port 
; Data Port, MSB 
; Data Port, LSB 


; Keyboard/Display Switch Port 
; Keyboard/Display Data Port 
; Keyboard/Display Control Port 
; EPROM/UART Console Data Port 
; Console Status Port 

; System Control Port 

Arm Control 
; Front Panel Switches 
; Front Panel Switches 
; Front Panel Indicators 
; Front Panel Indicators 
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LINKAGE OF ASSEMBLY ROUTINES 


ORG 

Absolute origin 

ASEG 

Absolute segment 

CSEG 

Relocatable code segment 

DSEG 

Relocatable data segment 

PUBLIC 

Define symbols as public for use 
by other programs 

EXTRN 

Symbols from other programs 


LINKAGE 

Call name (A, B) 

REG BC = Address (A) 

DE = Address (B) 

See INTEL FORTRAN User's Guide 
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VGS COMMON BLOCKS 


/CLOCK/ 


/COMBUF / 
/CONTAB/ 
/ CNTVEC / 
/CPANEL/ 
/DEBUG/ 


/DEFALT/ 

/DEFOPS/ 

ROM 

/DEFTAB/ 
/DEFMOS/ 
/ ERRFLG/ 
/ERRBUF/ 
/IOFVEC/ 

ROM 

/MESTAB/ 

ROM 

/MESTB2/ 

ROM 

/MESTB3/ 

/OPPARM/ 

ROM 

/OPSPNT/ 


/ OPSVEC/ 


/PARAMS/ 

/PIKBUF/ 

/SENBUF/ 

/SENDEL/ 

/SENMEM/ 

/SENPNT/ 

/SAVER/ 

CMOS 

/WORK/ 



CLOCK FLAG * COUNTERS 

COMMUNICATION BUFFERS 
CONVERSION TABLES 
CONTROL VECTORS 
CONTROL PANEL ARRAY 
DEBUG MASKS 

DEFAULT DATA 

DEFAULT DATA 

ERROR FLAG ARRAY 

I/O MASK VECTOR 

MESSAGE TABLES I 

MESSAGE TABLES II 
MESSAGE TABLES III 
OPERATION PARAMETERS 

OPERATION POINTERS 

OPERATION VECTOR 

PARAMETER STORAGE 
PICK DATA STORAGE 
SENSOR INPUT , DATA BUFFER 
SENSOR DELAY LINES 
NONVOLATILE STORAGE 


G.P. WORK SPACE 


/OPPARM/ 

NMAX(l) - NMXSEN 

NMAX (2) = NMXERR 

NMAX ( 3 ) = NMXSIR 

NMAX (4) = NMXIPM 

NMAX (5) = NMXOUT 

NMAX (6) = NMXDSP 

NMAX (7) = NMXIOF 

NMAX (8) = NMXCNM,CTV 

NMAX (9) = NMXDBG 

NMAX (10) = NMXCBF 
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/OPPARM/ 


Ntmxui) 

n 

NMXTAP 

NtlAX (12) 

□ 

NtlXKXD 

NMM (13) 

□ 

NMXPRM 

UMAX {14) 

C 

NMXOPS 

NMAX(15) 

E3 

NMXPNT 


/XOFVEC/ 


XOFVEC (1) 

C3 

IOFSEN 


XOPVEC (2) 

C2 

IOFDFD 


XOFVEC (3) 

C3 

IOFPCF 


XOFVEC (4) 

E= 

IOFLCF 


IOFVEC ( 5 ) 

C3 

IOFLAP 


IOFVEC (6) 

C3 

XOFRAP 


IOFVEC (7) 

ri 

IOFCID 


IOFVEC (8) 


IOFPKF 


IOFVEC (9) 

= 

IOFPKR 


IOFVEC (10) 


IOFVCF 


IOFVEC (11) 


IOFVCR 


IOFVEC (12) 


IOFVOT 


IOFVEC (13) 

=3 

IOFDSP 


IOFVEC (14) 

= 

IOFKEY 


IOFVEC (15) 


IOFCAS 


IOFVEC (16) 

= 

IOFCRT 


IOFVEC (17) 

a 

IOFCDCJ 


/ CNTVEC / 

CNTVEC (1) 

= 

CTVCID 

CID 

CNTVEC (2) 


CTVLCF 

LAST CUT 

CNTVEC (3) 


CTVPKF 

PICK F 

CNTVEC (4) 


CTVPKR 

PICK R 

CNTVEC (5) 

= 

CTVPCF 

PAST CUT 

CNTVEC (6) 

= 

CTWCF 

VALVE F 

CNTVEC (7) 


CTWCR 

VALVE R 

CNTVEC (8) 


CTVFRT 

FRONT CNTL 

CNTVEC (9) 

= 

CTVRER 

REAR CNTL 

CNTVEC (10) 

Cl 

CTVOUT 

CNTL OUTPUT 


/P ARAMS / 


DMAX 


DRUM 

MAY 

DMIN 

- 

DRUM 

MIN 

ERRLMT 

- 

MAX# 

ERRORS FOR TRIP 

SEAM 

- 

SEAM 

HEIGHT 

PIKAVE 

- 

PICK 

AVERAGE # 

PKSTEP 

- 

PICK 

STEP VALUE 

DEDBDF 


FRONT DEAD BAND 

DEDBDR 

- 

REAR 

DEAD BAND 

ARMLNG 

- 

ARM LENGTH POT GAIN 
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/PARAMS/ 

DRMRAD 

LCPOS 

PCPQS 

CIDPOS 

FTRLOC 

DFDFCT 

SNDSTP 

DBIASF 

DBXASR 

SRKVAL 

TRGFCT 


DRUM RADIUS 

LCF MOUNTING POS (DFD UNITS) 

PCF MOUNTING POS (DFD UNITS) 

CID MOUNTING POS (DFD UNITS) 
FRONT TO REAR DIST. (DFD UNITS) 
DFD GAIN FACTOR = 1 
CMOS STEP UPDATE DISTANCE 
BIAS FRONT 
BIAS REAR 

SENSOR RATE LIMIT VALUE 
TRIG COMPENSATION FACTOR 


/OPSVEC/ 

OPMODE 

MODECT 

RNGMSK 

OPSENR 

RATECK 

STAT 

FDVGN 

FDCAL 

RDVGN 

RDCAL 


OPERATION MODE 
CONTROL MODE 
RANGE CHECK FLAG 
SENSOR DELAY FLAG 
RATE CHECK FLAG 
SYSTEM STATUS 
FRONT CONTROL GAIN 
FRONT TRIG FACTOR 
REAR CONTROL GAIN 
REAR TRIG FACTOR 


PROGRAM OPERATION PARAMETERS 


/OPPARM/ ICMPNT(IO), NMXVEC(16), NMXIPX(6) 


ICMPNT(l) 

7 

CID MAP CONTRU SET INTO MESSAGE VECTOR 

(2) 

4 

LCF 

(3) 

8 

PKF 

(4) 

9 

PKR 

(5) 

3 

r CF 

(6) 

10 

VCF 

(7) 

11 

VCR 

(8) 

18 

FRT 

(9) 

19 

RER 

(10) 

20 

OUT 


NMXVEC (1) 

8 

NMXSEN 

(2) 

8 

NMXERR 

(3) 

0 

NMXSIR 

(4) 

6 

NMXIPM 

(5) 

0 

NMXOUT 

(6) 

8 

NMXDSP 
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NMXVEG ( 7 ) 

20 

NMXXGF 

(8) 

10 

NMXCNM, CTV 

(9) 

9 

NMXBBG 

(10) 

8 

NMXCBF 

(ID 

128 

NMXTAP 

(12) 

8 

NMXKXB 

(13) 

20 

NMXPRM 

(14) 

0 

NMXQP8 

(IS) 

8 

NMXPNT 

(16) 

0 

DUMMY 

I >1XIPX(1) 

17 

I/O NUMBER OF PROMPTS TO ASK 

(2) 

10 

CONTROL FOR EACH TYPE 

(3) 

4 

OPERATION 

(4) 

10 

PARAMETERS 

(S) 

1 

CMOS MEM TABLE 

(6) 

32 

SENSOR TABLES 
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ASCII TABLES 


/MESTAB/ 

ERRMES: CHARACTER * 4 (20) 

1 0SEN 
0DPD 
gPCF 
gLCF 
5 SLAP 
0RAP 
0CID 
DPKF 
0PKR 
10 0VCF 
0VCU 
0VOT 
0DSP 
SSKEY 
1 5 0CAS 
0CRT 
0CDU 
0FRT 
SUER 
20 SCOT 


DBGMES: CHARACTER *4 (20) 

1 ODBG 
OUT? 

INP? 

DAT? 

5 ITZ? 

TAP? 

I/O? 

CLK? 

MEM? 

10 DUMP 
END? 

qsys 

PORT 
CHNL 
IS UP 
do™ 

MAN 
MODE 
WRIT 
20 ADR? 
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RUNMES: CHARACTER* 4 (20) 


1 

71/0 

7 CNT 


?OPS 

?VRB 

5,6 

*RUN-QIC* 

7,8 

*BEBUG * 

9,10 

7CALBRAT 
ftPAUSE ft 
MASK 
FARM 

15 

ERR 

ft-STOP-ft 

*-EKXT-* 

20 

H Jl 
If If 

DSPCGDE : 

CHARACTER*1 

1 i 

$ * {) & 

6: 

(3 ? = 


PARAMETER MESSAGE 
PARMES (20) 


/MESTB2/ 


1 

DMAX 

2 

DMIN 

3 

ERLM 

4 

SEAM 

5 

PAVE 

6 

PKSP 

7 

DBDF 

8 

DBDR 

9 

LENG 

10 

DRAD 

11 

LCPS 

12 

PCPS 

13 

CDPS 

14 

FLOC 

15 

DFCT 

16 

DSTP 

17 

FBAS 

18 

RBAS 

19 

SKRV 

20 

TRGF 


TABLE 

CHARACTER*4 
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/MESTB3/ 

QPSMBS : CHARACTER* 4 (10) 

1 : QPER 

MODE 
RANG 
GSBL 
5: RATE 

STAT 
FBVG 
FCAL 
RBVG 
RCAL 
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OPERATION VARIABLE VALUES 


OPMODE : 

-1 

REBOOT 


0 

STOP 


1 

RUN 


2 

DEBUG 


3 

HALT 


4 

MANUAL 


5 

CALIBRATE 

MODECT : 

0 

NO CONTROL 


1 

MODE II 


2,4 

MODE I 


3 

REAR SLAVE 

RANG: 

0 

NO CHECK 


1 

RANGE CHECK 

OPSENRt 

0 

DIRECT 


1 

DELAYED (PREVIEW) 

RATECK : 

0 

NO CHECK 


1 

RATE CHECK 

STATUS : 

0 

SYSTEM COLD START 


1 

RUNNING 


SENSOR INDEX POINTER 

SINPNT : 


1 DFD 

2 PCF 

3 LCF 

4 LAP 

5 RAP 

6 CID 

7 PKF 

PKR 

USED FOR CONTROL OF A/D AND CONVERSION AND RANGE 
CHECK TABLE ENTRIES 

POINTS INTO SIB OR SDB ENTRIES FOR APPROPRIATE VALUE 
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VCS ERROR CODES 


ERROR (1) 

ERROR (2) 
ERROR (3) 
ERROR (4) 

ERROR (5) 
ERROR <6 ) 


I (SINPNT) FOR SENSOR INPUT RANGE ERROR POSITIVE 
1+10 FOR NEGATIVE 


1 IF 39 VOLT FAILURE 


1 CAL SWITCH RUN FROM RUN MODE 


RATE CHECKING 

I LCF ERROR 
10 PCF 

II BOTH 


Nj CASSETTE ERROR (DUMMY (2)) 

ERROR FLAG BYTE = STATUS FROM CASSETTE 

CMOS DATA NOT READY MODE I MODECT = 2 or 4 
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PROGRAM MODULES 
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VCS SUPERVISOR PROGRAM 


Main program: VCSSUP 

Main program calla supervisor routines baaed on flaga and 
of modes. 

Inputs: Control information buffers 

Outputs : Nothing 

Calls: SUPINP, SUPOUT, SUPCNT, SUPDBG, SUPITZ, SUPCAL, 

SUPERR/ SUPEXT, SUPHLT 

Destroys: Nothing 

Modifies: Nothing 

Language: FORTRAN 80 

L-V-A: Version 1, Level 1 

Roger B. Fish 
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MODULE : VCSPRG 


VCSPRG is the main program executive modulo of the VCS soft- 
ware. The main program supervisee operation of the VCS by call- 
ing tho appropriate supervisor routines to perform the required 
operations. VCSPRG continuously monitors operation parameters 
{ OPMODE, ERROR (I) ) and calls the relevant routines to handle the 
condition. (For example, DEBUG, RUN, INITIALIZE, ERROR PROCESS- 
ING.) Communication between modules in the VCS software, except 
for certain I/O drivers, is via global COMMON blocks. VCS 
operates by continuously scanning the mode and status data and 
looping through its test code. The routine first inputs all 
sensor and control variables and then tests for supervisor rou- 
tines to be called. Ui less the supervisor causes a program term- 
ination, the system outputs are then updated and the process 
repeats . 
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SUPERVISOR SUBROUTINES 


SUPINP 

Input supervisor (sensors) 

SUPOUT 

Output supervisor 

SUPCNT 

Control supervisor 

SUPDBG 

Debug supervisor 

SUPITZ 

Initialization routine 

SUPERR 

Error handler 

SUPEXT 

Exit routine 

SUPCAL 

Calibration routines (restart) 

SUPHLT 

Program hard pause 
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SUPERVISOR CONTROL ROUTINE 


SUBROUTINE: 

SUPINP 

SUPINP 

Control input to the VCS 

Inputs : 

I/O eontrel buffer 

Outputs : 

Nothing 

Calls: 

SENINP, XNPCDU , CONVRT 

Dos troys: 

Nothing 

Modifies: 

Sensor input buffer 

Language : 

FORTRAN 80 

L-V-A: 

Version 1, Lovol 1 
Roger B. Fish 
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MODULE: SUPINP 


SUPINP io tho ouporvioor routine which inputo oonoor and 
control data to tho VCS. Tho routino roado tho operator control 
panol owitchoo and thon tooto if oonoor I/O io enabled by an 
I/O flag. If tho flag, IQPSEN, io truo, tho oonoor input routinoo 
SENINP for LOP, PCF , otc. io called. Tho oonoor convoroion rou- 
tine CONVRT io called to convert tho raw oonoor data into appro- 
priate onginooring unito. 
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SUPERVISOR CONTROL ROUTINE 


Subroutine: 

SUPOUT controls 
Inputs : 

Outputs : 

Calls : 

Destroys: 

Modifies: 

Language: 

L-V-A: 


SUPOUT 


outputs from the VCS 
I/O control vector 
Nothing 

CNTOUT , SAVDAT, FORMAT, CLOCK, INTREN, 
OUTDSP , OUTPUT 

Nothing 

Nothing 


FORTRAN 80 

Version 1, Level 1 
Roger B. Fish 
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MODULE : SUPOUT 


SUPOUT is the supervisor routine which outputs data from 
the VCS to the various control devices, control indicators, and 
operator control panel. 

The operation mode value (OPMODE) is tested and an appro- 
priate message is displayed on the display panel, and appropriate 
output routines are called. Display information for the control 
display is formatted and output. Finally, CLOCK is called for 
system synchronisation. 
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SUPERVISOR CONTROL ROUTINE 


Subroutine: SUPCNT 

SUPCNT controls VCS control algorithm use and signal 
gonoration. 


Inputs: 

Operation control vectors 

Outputs: 

Nothing 

Calls: 

CNTRFD, CNTRRD 

Destroys: 

Nothing 

Modifies: 

Nothing 

Language: 

FORTRAN 80 

L-V-A 

Version 1, Level 1 
Roger B. Fish 
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MODULE: SUPCNT 


SUPCNT is the VC8 control algorithm supervisor routine. 
This routine toots tho control operation flags and control 
words and calls the appropriate routine to control tho front, 
rear, or output tho valve control signals. 
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SUPERVISOR CONTROL ROUTINE 


Subroutine: 
SUPDBG 
Inputs : 
Outputs : 
Calls : 

Destroys: 

Modifies: 

Language: 

L-V-A: 


SUPDBG 


is the debug operation routine 


Debug control vector 
None 


DBUGCI, DBUGCO, DBUGIN, DBUGOT, DBUGTP, 
ITZINP, DBUGCK, DBUGME , DBUGIO, INTRDS 


Nothing 


Nothing 


FORTRAN 80 


Version 1, Level 1 
Roger B, Fish 
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MODULE: SUPDDG 


SUPBBG io tho dobug interaction nuporvioor. SUPBBG io 
called by *MftIN* when OPMODE io oat to tho dobug valuo. SUPBBG 
thon callo tho debug control input routino DBUGCI which promptc 
tho uoor for tho appropriate control input to ooloet one of tho 
dobug optiona. When dobug io complete, tho routino roturno to 
*MhIN*. SUPBBG can aloe eall tho interactive initialisation 
routino IT2INP if tho operator wishes to modify any variables. 
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SUPERVISOR CONTROL ROUTINE 


Subroutine: SUPXTZ 

SUPITZ initializes the program variables buffers and 
control variables. 


Inputs : 

None 

Outputs : 

System initialised 

Calls : 

INTRDS , INTREN, OUTDSP, AIOITZ, ITZINP 
INPCDU, RESTRT, TAP IT Z 

Destroys : 

Nothing 

Modifies : 

Input buffers/ parameters, interrupts, 
control information 

Language : 

FORTRAN 80 

L-V-A: 

Version 1, Level 1 
Roger B. Fish 
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MODULE: SUPITZ 


SUPITZ is the program initialization routine. SUP1TZ takes 
care of initializing I/O interfaces via AIOITZ, clears I/O 
buffers to zero, and loads common blocks from the default ROM 
areas. The default values are copied into RAM memory so that 
the values can be modified via routine ITZINP. 

SUPITZ also calls INTRDS to disable system interrupts. 
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SUPERVISOR CONTROL ROUTINE 


Subroutine: SUPERR 

SUPERR processes error condition flags and outputs message. 


Inputs: 

Error flag vector 

Outputs : 

D/C error message 

Calls: 

OUTDSP, INPCDU / FORMAT 

Destroys : 

Error flags 

Modifies: 

Nothing 

Language : 

FORTRAN 80 

L-V-A: 

Version 1/ Level 1 
Roger B. Fish 
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SUPERVISOR CONTROL ROUTINE 


Subroutine : 
SUPEXT 
Inputs : 
Outputs : 
Calls: 

Destroys: 
Modifies: 
Language : 
L-V-A: 


SUPEXT 

exits from the VCS program after closing data base. 
None 
None 

CLOCK, INTRDS, INPCDU, OUTDSP, CNTOUT, 
INTREN 

SIB, SDB, ERRORS 

Pointers, control words 

FORTRAN 80 

Version 1, Level 1 
Roger B. Fish 
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SUPERVISOR CONTROL ROUTINE 


Subroutine: 
SUPCAL 
Inputs: 
Outputs : 
Calls: 
Destroys : 
Modifies: 
Language: 
L-V-A: 


SUPCAL 

calls the system restart {warm start) routine. 
None 
OPMODE 

RESTRT , INPCDU, OUTDSP 

Nothing 

OPSVEC, DOB 

FORTRAN 80 

"'ersion 1, Level 1 
Roger B. Fish 
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SUPERVISOR CONTROL MODULE 


SUBROUTINE : SUPHLT 

SUPHLT stops VCS program operation by stopping clock 
interrupts and blocks program flow. 

Inputs : None 

Outputs s OPMODE 

Calls: INTREN, INTRDS , INPCDU, OUTDSP 

Destroys: DOB 

Modifies: OPSVEC 

Language: FORTRAN 80 

L-V-A: Version 1/ Level 1 

Roger B. Fish 
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CALL 

INTROS 


CALL 

INPCOU 



OPMOOE 
=> 0 










SUPERVISOR EXECUTION MODULES 


SENINP 

— 

Sensor input 

CONVRT 

- 

Sensor conversiov. 

CNTOUT 

M 

Control signal output 

ITZINP 

- 

Initialisation routine 

RESTRT 


Reset system/ cold start 
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SUPERVISOR EXECUTION MODULE 


Subroutine: 
SENINP 
Inputs : 
Outputs : 
Callf=: 
Destroys: 
Modifies : 
Language : 
L-V-As 


SENINP 

calls sensor input routines under I/O mask control. 
I/O mask buffer 
None 

AlOADC / SENRLM, INPCID, INPPKS, ADCITZ 
Nothing 

Sensor input buffer 

FORTRAN 80 

Version 1, Level 1 
Roger B. Fish 
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to 

u> 

o 



ADCITZ 
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SUPERVISOR EXECUTION MODULE 


Subroutines CONVRT 


CONVRT converts sensor input data to engineering units, 
and does range checking. 


Inputs; 

Sensor input data 

Outputs : 

None 

Calls: 

CONFNC 

Destroys; 

Nothing 

Modifies ; 

Nothing 

Language ; 

FORTRAN 80 

L-V-A: 

Version 1, Level 
Roger B. Fish 
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SUPERVISOR EXECUTION MODULE 


Subroutine: CNTOUT 

CNTOUT is the controller output routine. This calls the 
appropriate output routines as per the I/O controls. 

Inputs: I/O control vectors , controller outputs 

Outputs: None 

Calls: AIOVOT 

Destroys: Nothing 

Modifies: Nothing 

Language: FORTRAN 80 

L-V-A: Version 1, Level 1 

Roger B. Fish 
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SUPERVISOR EXECUTION MODULE 


Subroutine: ITZINP 

ITZINP prompts the user and updates the value of some 
variables in the program. 

Inputs : None 

Outputs : None 

Calls: OUTDSP/ INPCDU, INTRDS , XNPBBX, OUTPUT 

Destroys: CMOS {Optional) 

Modifies: Variable input by user 

Language: FORTRAN 80 

L-V-A: Version 1, Level 1 

Roger B. Fish 
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ro 


o 



OUTPUT 
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SUPERVISOR EXECUTION MODULE 


Subroutine: RESTRT 

RESTRT initialises and clears data which is run dependent 
for restart. 

Inputs : None 

Outputs : None 

Calls: TAPITZ 

Destroy s : SENPTR (I ) , ERRBUF (I) , TFLAG (I) , PKBUFS , 

SENDEL(I) 

Modifies: Status, pointers, OPMODE 

Language : FORTRAN 

L-V-A: Version 1, Level 1 

Roger B. Fish 
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SUPERVISOR EXECUTION MODULE 


CNTRPD 

CNTRRD 


Control Routinec 

Front drum control 
Roar drum control 



SUPERVISOR EXECUTION MODULE 


Subroutines CNTRFD 

CNTRFD computes the front drum control signal. Algorithm 
is controlled by inputs and mode control. 


Inputs s 

Sensor data, control information 

Outputs s 

Front drum control signal 

Calls : 

Nothing 

Destroys: 

Nothing 

Modifies: 

Control output, front (VOB) 

Language : 

FORTRAN 80 

L-V-A: 

Version 1, Level 1 
Roger B. Fish 
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4 





FALSE. 

(“ V ctrao 


i 

« 

f 


'‘IF 

LCF" 

< 


* 


"LCF 

control 

PHASE * 1 


w 



254 


















SUPERVISOR EXECUTION MODULE 


Subroutine s CNTRRD 

CNTRRD compute o the rear drum control signal. Algorithm 
is controlled by inputo and mode control. 


Inputs : 

Sensor data, control 

information 

Outputs : 

Front drum control signal 

Calla: 

Nothing 


Destroys: 

Nothing 


Modifies: 

Control output, rear 

(VOB) 

Language : 

FORTRAN 80 


L-V-A; 

Version 1, Level 1 
Roger B. Fish 
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SUPERVISOR EXECUTION MODULES: 


Debugger Routines 


DBUGCI 


Input control 

DBUGCO 

- 

Output 

DBUGIN 

- 

Sensor scan 

DBUGOT 

- 

Output (valve) 

DBUGIO 

- 

I/O channel test 

DBUGTP 

- 

Tape chock 

DBUGCK 

- 

Clock test 

DBUGME 

- 

Memory display/modify 


261 



SUPERVISOR EXECUTION MODULE 


Subroutine : DBUGCI 

DBUGCI reads debug control information from control/ 
display panel. 


Inputs: 

Debug control vector 

Outputs: 

None 

Calls: 

INPCDU, OUTDSP , PAUSE 

Destroys: 

Nothing 

Modifies: 

Debug control vector 

Language : 

FORTRAN 80 

L-V-A: 

Version 1, Level 1 
Roger B. Fish 
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SUPERVISOR EXECUTION MODULE 


Subroutines DBUGCO 

DBUGCO outputs debug information to control/display panel. 


Inputs: 

Debug control vector 

Outputs : 

Debug messages 

Calls: 

OUTDSP, CLOCK 

Destroys: 

Nothing 

Modifies: 

Nothing 

Language : 

FORTRAN 80 

L-V-A: 

Version 1, Level 1 
Roger B. Fish 
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SUPERVISOR EXECUTION MODULE 


Subroutine: 
DRUG IN 
Inputs : 
Outputs : 
Calls: 

Destroys: 
Modifies: 
Language : 
L-V-A: 


DBUGXN (FLAG) 

roads soncor data via I/O routinoo as per input. 
Sensor buff or, control vaetor 
None 

SENINP, PAUSE, QUTDSP, FORMAT, INPCDU, 
CONVRT 

Nothing 

Sensor input data (SDB) 

FORTRAN 80 

Version 1, Level 1 
Roger B. Fish 
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SUPERVISOR EXECUTION MODULE 


Subroutine: 

DBUGQT 

arms. 

Inputs: 

Outputs: 

Calls: 

Destroys : 

Modifies : 

Language : 

L-V-A: 


DBUGOT 

outputs debug control signals to front and roar 

Debug control vector 

Drum control signals 

INPCDU, CNTOUT, OUTDSP 

Nothing 

Nothing 

FORTRAN 80 

Version 1, Level 1 
Roger B. Fish 
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2 : 




















SUPERVISOR EXECUTION MODULE 


Subroutines 
DBUGIO 
Inputs : 
Outputs : 
Calls: 
Destroys: 
Moei „fies: 
Language : 
L-V-A: 


DBUGIO 

roads an I/O channel or port and displays value. 
None 
None 

FORMAT, OUTDSP, PAUSE, INPCDU, SENINP 

Nothing 

DOB 

FORTRAN 

Version 1, Level 1 
Roger B. Fish 
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to 

-J 

o> 



OUTDSP 


INPCDU 


SEN IMP 



FORM! 


PAUSE 











I 



2 



SUPERVISOR EXECUTION MODULE 


Subroutines 

DBUGTP 

Inputs: 

Outputs: 

Calls: 

Destroys: 

Modifies: 

Language: 

L-V-A: 


DBUGTP 

checks tape cassette operation. 

None 

None 

AIOCAS, MSEC2H, PAUSE, OUTDSP 

Nothing 

TOB, DOB 

FORTRAN 

Version 1, Level 1 
Roger B. Fish 
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to 

CO 

o 



PAUSE 


OUTDSP 



MSEC2H 


AICCAS 













SUPERVISOR EXECUTION MODULE 


Subroutine : DBUGCK 

DBUGCK chocks the clock timer for VCS synchronisation. 


Inputs: 

None 

Outputs: 

None 

Calls: 

CLOCK, INTREN 

Destroys: 

Nothing 

Modifies: 

Nothing 

Language : 

FORTRAN 80 

L-V-A: 

Version 1, Level 
Roger B. Fish 
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SUPERVISOR EXECUTION MODULE 


Subroutine: 
DBUGME 
Inputs : 
Outputs : 
Calls: 

Destroys: 
Modifies: 
Language ; 
L-V-A: 


DDUGME 

displays memory to tho operator via LEDS. 

None 

» 

None 

OUTDSP, INPCDU r AGETIT, INPHEX, FORMAT, 
APUTIT 

Nothing 

DOB, memory location if "PUT" 

FORTRAN 80 

Version 1, Level 1 
Roger B. Fish 
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236 
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UTILITY ROUTINES 


PAUSE 

- 

Wait at KEYPAD 

CLOCK 

- 

Clock synchronizer 

INPCDU 

- 

Read C/D panel 

INPHEX 

«■» 

Input a HEX value 

CONPNC 

- 

Convert sensor to data 

RANGCK 

- 

Range check on sensors 

SENRLM 

mm 

Sensor rate limit test 

INPCID 

- 

Input CID value 

INPPKS 

- 

Input pick data 

OUTCAS 


Output data to cassette 

CUTDSP 

- 

Display in LEDS 

SAVDAT 


Store data in CMOS and for cassette 

TAP IT Z 

- 

Initialize tape header. 


289 



I/O UTILITY ROUTINES 


Subroutine: PAUSE 

PAUSE waits for any key to bo pressed on the display/ 
control. 


Inputs : 

None 


Outputs : 

None 


Calls : 

INPCDU t 

OUTDSP 

Destroys: 

Nothing 


Modifies: 

DOB 


Language: 

FORTRAN 

80 

L-V-A: 

Version 

1, Level 


Roger B. 

Fish 
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G» P . UTILITY ROUTINES 


Subroutine: CLOCK 

CLOCK synchronises VCS timing by waiting for a timer 
interrupt (1 second), times out after 2 soconds. 


Inputs : 

None 

Outputs: 

None 

Calls : 

Nothing 

Destroys: 

Nothing 

Modifies: 

Clears TFLAG (3) 

Language: 

FORTRAN 80 

L-V-A: 

Version 1, Level 
Roger B. Fish 
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I/O UTILITY ROUTINES a INPUT 


Subroutine: INPCDU 

INPCDU inputs the data from the C/D via port 04. 


Inputs: 

None 

Outputs : 

C/D input in PIB 

Calls : 

AIOCDU 

Destroys: 

Nothing 

Modifies: 

/WORK/, /CPANEL/, /ERRFLG/ 

Language : 

FORTRAN 80 

L-V-A: 

Version 1, Level 1 
Roger B. Fish 
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CLEAR 
C PANEL 
ARRAY 

1 


i — » 

CALL 

AIOCDU 



COM 
! INPl 
LOG! 

rERT 
IT TO 
.CAL 



RETURN 



READ 
INPUTS 


NEXT 

ADJUST 

RESET 

MODE, 

ETC. 
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I/O UTILITY ROUTINES: INPUT 


Subroutines : 
INPHEX 
Inputo: 
Outputs: 
Calls : 
Destroys: 
Modifies: 
Language : 
L-V-A: 


INPHEX 

gots a HEX number from the C/D by prompting. 
None 

HEX value in TEMPIO 

AIOCDU, OUTDSP , FORMAT 

Nothing 

/WORK/ 

FORTRAN 80 

Version 1, Level 1 
Roger B. Fish 
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I/O UTILITY ROUTINES: CONVERSION 


Subroutine : CONPNC 

CONPNC is a tablo driver routino which is used to convert 
sansor inputs to engineering unit data. 


Inputs : 

Sensor indox SENPNT 

Outputs: 

None 

Calls: 

RANGCK (opt) 

Destroys: 

Nothing 

Modifies: 

TEMPIO 

Language: 

FORTRAN 80 

L-V-A: 

Version 1, Level 1 
Roger B. Fish 
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3 










I/O UTILITY ROUTINES: CONVERSION 


Subroutine : RANGCK 

RANGCK test converted sensor data against max and min 
stored in table 


Inputs : 

Sensor index pointer 

Outputs : 

ERROR FLAG 1 

Calls : 

Nothing 

Destroys: 

Nothing 

Modifies : 

SDB, ERROR (1) 

Language : 

FORTRAN 80 

L-V-A: 

Version 1, Level 1 
Roger B. Fish 
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TEMPIO - RGCDAT (SENPOT, 1) 
ERROR (1) = SENPHT 


TEf'PIO = RGCDAT (SEtiPHT, 2) 
ERROR (1) = -SEHPHT 













I/O UTILITY ROUTINES: SENRLM 


Subroutine : 
SENRLM 
Inputs : 
Outputs : 
Calls : 
Destroys: 
Modifies : 
Language : 
L-V-A: 


SENRLM 

is the reasonableness choc); on tho LCF, PCF data, 
SDB, LCF, PCF ? STATUS 
SDB, LCF, PCF, ERROR (4) 

Nothing 

Nothing 

LCF, PCF, ERROR (4), STATUS 

FORTRAN 80 

Version 1, Level 1 
Roger B. Fish 
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STATUS « 1 
LCOLO • LC 
PCOLO - PC 














I/O UTILITY ROUTINES: INPUT 


Subroutine: INPCID 

XNPCID inputs the CID data via port 01 , control via 
port 02 


Inputs: 

None 

Outputs : 

CID data in SIB 

Calls : 

AIOCID 

Destroys : 

Nothing 

Modifies : 

SIB 

Language: 

FORTRAN 80 

L-V-A : 

Version 1/ Level 
Roger B. Fish 
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I/O UTILITY ROUTINES: INPUT 


Subroutine : 
INPPKS 
Inputs : 
Outputs : 
Calls: 
Destroys : 
Modifies: 
Language : 
L-V-A: 


INPPKS 

inputs the front pick signal via port 10H 
None 

Pick (front and rear) data in SIB 
INPUT (FORTRAN BYTE I/O) 

Nothing 

SIB 

FORTRAN 80 

Version 1/ Level 1 
Roger B. Fish 
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I/O UTILITY ROUTINES: OUTPUT 


Subroutine: OUTCAS 

OUTCAS outputs the cassette output buffor to the digital 
cassette via port 08, 09, 0A, control port OB. 

Inputs : None 

Outputs : TOB 

Calls: AIOCAS 

Destroys: Nothing 

Modifies: Nothing 

Language: FORTRAN 80 

L-V-A: Version 1, Level 1 

Roger B. Fish 
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I/O UTILITY ROUTINES: OUTPUT 


Subroutine : OUTDSP 

OUTDSP outputs an ASCII character string to the {7303) 
display. 


Inputs ; 

ASCII string in DOB 

Outputs : 

None 

Calls: 

AIODSP (DOB (1) ) 

Destroys: 

*.onhing 

Modifies: 

Nothing 

Language : 

FORTRAN 80 

L-V-A: 

Version 1 , Level 1 
Roger B. Fish 
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SUPERVISOR EXECUTION MODULE 


Subroutine: SAVDAT 

SAVDAT stores sensor data into CASDAT buffer for tape 
dump and DFD + LCF into SNDATA buffer (Mode 1) . 


Inputs : 

None 


Outputs : 

None 


Calls : 

None 


Destroys : 

Nothing 


Modifies : 

DATPNT , 

SNDATA BUFFER 

Language : 

FORTRAN 

ao 

L-V-A : 

Version 

1 f Level 1 


Roger B. 

Fish 
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I/O UTILITY ROUTINE: OUTPUT 


Subroutine: TAPITZ 

TAPITZ writes the data tape file header. 


Inputs : 

None 

Outputs : 

None 

Calls: 

AIOCAS, OUTDSP , MSEC 2H 

Destroys: 

WORK/ 

Modifies: 

DOB 

Language : 

FORTRAN 80 

L-V-A 

Version 1, Level 1 
Roger B. Fish 
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I/O DRIVERS + INTERRUPT ROUTINES 


AIODSP 

- 

Display call to monitor 

FORMAT 

- 

Format i\ into HEX 

APUTIT 

- 

Put a BYTE into memory 

AIOCID 

- 

CID I/O driver 

A I OCAS 

- 

Cassotta I/O driver 

AIOVOT 

- 

Valve I/O driver 

AIOITZ 

- 

I/O initialiser routine 

AIOADC 

- 

A/D I/O driver 

AGETIT 

•• 

Get a BYTE from memory 

AIOCDU 

- 

C/D I/O driver 

INTRPT 

- 

Interrupt handler (timer) 

INTREN 


Interrupt enable 

INTRDS 

- 

Interrupt disable 
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I/O DRIVER ROUTINES: 


Subroutine: AIODSP (DOB (1)) 

AIODSP writes ASCII data to the display unit (7303 
via the monitor from DOB 


Inputs: 

Address of DOB (1) in BC 

Outputs : 

None 

Calls: 

MONITOR : OUTPT 

Destroys : 

F/F*s, A 

Modifies: 

Nothing 

Language: 

ASSEMBLER 8080/8085 

L-V-A : 

Version 1, Level 
Roger B. Fish 









I/O UTILITY ROUTINES: 


Subroutine: FORMAT (ADDR) 

FORMAT turns a HEX value in DOB (5,6) to ASCII code, 
in (BC 5, 6, 7, 8) 


Inputs : 

None 

Outputs : 

None 

Calls : 

MONITOR: HEXASC 

Destroys: 

A, F/F, BC, HL 

Modifies : 

DOB 

Language : 

ASSEMBLER 8080/8085 

L-V-A: 

Version 1, Level 1 
Roger B. Fish 
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Subroutines 

APUTXT 

Snptvto : 
Outputs : 
Calls : 
Destroys: 
Modifies: 
Language : 
L-V-A: 


i/o mzzjfiz rrjsiNES: 

aputit (te:oio) 

stores a EPTE in memory complementary to AGETIT. 


Address in TEMPIO and BYTE @ TEMPIO + 4 

None 

Nothing 

A, BC, F/F's, HL 

BYTE 9 TEMPIO 

ASSEMBLER 8080/8085 

Version 1, Level 1 
Roger B. Pish 
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I/O DRIVER ROUTINES: 


Subroutine: 
AXOCXD 
Inputs: 
Outputs : 
Calls : 
Destroys : 
Modifies : 
Language : 
L-V-A: 


AIOCID (X) 

reads the CID data from port 01 , into TEMPIO 


None 


None 
Nothing 
F/F's, A 
TEMP IO 

ASSEMBLER 8080/8085 

Version 1, Level 1 
Roger B. Fish 
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I/O DRIVER ROUTINES: 


Subroutine: AIOCAS (BUF) 

AIOCAS writes data from the cassette output buffer to 
tape. 


Inputs : 

None 

Outputs : 

None 

Calls: 

Nothing 

Destroys : 

F/F 1 s / A 

Modifies : 

Nothing 

Language : 

ASSEMBLER 8080/8085 

L-V-A: 

Version 1, Level 1 
Roger B. Fish 
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I/O DRIVER ROUTINES 


Subroutine: AIOVOT 

AIOVOT is the valve control I/O driver routine. 


Inputs: 

CBYTE control word 

Outputs t 

Valve control interface line 

Calls: 

Nothing 

Destroys : 

A, F/F's, BC 

Modifies : 

Valve control lines 

Language : 

ASSEMBLER 8080/8085 

L-V-A: 

Version 1, Level 1 
Roger B, Fish 
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11X10000 


11010000 


11110000 


11100000 


11110000 



RESET 

TIMEOUT 


FUNCTION BITS 

mixxxx 
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I/O DRIVER ROUTINES 


Subroutine)* AI0IT8 

AIOIT2 initialises I/O interfaces for operation at 
machine startup 

Inputs : None 

Outputs : None 

Calls* ADCXT3, CLKXTS (local subroutines) 

Destroys* A# F'F’Sr BC» DE, HL 

Modifies* Interface status 

Language* ASSEMBLER 808 0/8085 

L-V-A: Version 1 , Level 1 

Roger B. Pish 
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I/O DRIVER ROUTINES 


Subroutine: AIOADC (I, J) 

AIOADC reads signals from the A/D converter into the 
SIB 


Inputs : 

Sensor index , output data 

Outputs : 

Sensor data to TEMP 10 

Calls: 

Nothing 

Destroys: 

F/F's 

Modifies: 

TEMPIO ca /WORK/ 

Language: 

ASSEMBLER 8080/8085 

L-V-A: 

Version 1, Level 1 
Roger B. Fish 
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G.P. UTILITY ROUTINES: 


Subroutine: AGETXT (I, J) 

AGETXT takes the HEX address of TEMPXO in EC loads 
the value and puts it in address held in DE. 


Inputs: 

X « HEX 

Outputs : 

J = HEX value 

Calls: 

Nothing 

Destroys : 

BC, DE 

Modifies: 

DOB 

Language: 

ASSEMBLY 8080/8085 

L-V-A: 

Version 1, Lev^l 1 
Roger B, Pish 
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I/O DRIVER ROUTINES 


Subroutine: 

AIOCDU (BUF) 


AIOCDU reads 

data from the C/D panel 

port 04. 

Inputs: 

(BC) points to work buffer 

Outputs: 

None 


Calls: 

None 


Destroys : 

A, F/F's, PE, :!L 


Modifies: 

Work vector 


Description: 

Generator 8 bytes of 

local data BUF 

Language: 

ASSEMBLER 8080/8085 


L-V-A: 

Version 1, Level 1 



Roger B. Pish 
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I/O UTILITY ROUTINES ; INTERRUPT 


Subroutine: 
INTRPT 
Inputs : 
Outputs : 
Calls : 
Destroys : 
Modifies: 
Language: 
T-V-A: 


INTRPT 

is tho clock intorrupt Borvieo routine. 

None 

None 

OUTCAS 

Nothing 

Interrupt eountors and flags in monitor code 

ASSEMBLER 0080/8085 

Version 1, Level 1 
Roger B. Pish 
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CASSETTE INTERRUPT STRUCTURE 


Monitor : 


RST - 5.5 
Call INTRPT 
RET 


INTRPT: 


ONESEC : 


HUNDRED: 


MILSEC : 


Read clock port 
Test if 1 second 
Test if 100 msec 
Test if 1 msec 

Set flag BYTE (sec) 

Add 1 to count (sec) 

RET 

Set flag BYTE (100 msec) 

Call OUTCAS 

RET 

Set flag BYTE (i msec) 
RET 


Timer generates an interrupt every 1 msec# but only 100 msec 
and 1 sec are wired to CPU RST 5.5. 
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OUTCAS 


if test mask 

Then: 

If OPPNTS (3) > » 100: OPPNTS (3) = 0, RET 

If OPPNTS (2) > 0, then 

Call cassette output 
OPPNTS (2) <= OPPNTS (2) -1 
OPPNTS (3) = OPPNTS (3) +1 
END IP 

Else: 

If OPPNTS (3) > = 64 
OPPNTS (3) = 111 
RET 

END 

AIOCAS : 

Get ARGS + ADDRESSES 
Test if write; go to write 
Test if P. FORWARD 
ENT 


Write: 

Test status 
Error go to error 
Write 16 bits to ports 
Send write command 5 ysec 
END 
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I/O UTILITY ROUTINES: INTERRUPT 


Subroutine: 

INTREN enables 
Inputs : 

Outputs : 

Calls: 

Destroys: 

Modifies: 

Language : 

L-V-A: 


INTREN 

CPU interrupts. 

None 
None 
Nothing 
Nothing 

CPU interrupt masks 

ASSEMBLER 8080/8085 

Version 1, Level 1 
Roger B. Pish 
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I/O UTILITY ROUTINES: INTERRUPT 


Subroutine: 

INTRDS disables 
Inputs : 

Outputs : 

Calls: 

Destroys : 

Modifies: 

Language: 

L-V-A: 


INTRDS 

CPU interrupts. 

None 

None 

Nothing 

Nothing 

CPU interrupt masks 

ASSEMBLER 8080/8085 

Version 1/ Level 1 
Roger B. Pish 
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APPENDIX B 
PROGRAM LISTING 
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CIPHER 


ISIS-It TOTOl-ft '&i COMPILATION OF FSSSFml BUT VCSFF.3 
G3J2CT PLACED IN :Fi:Vt£FfiaCM 
COOLER WV6«® BV- FQfifTEO :Ft:tfCSPR!LF5R 



1 FFOOFAM VCSFRG 

C VCS MIN SUPERVISOR PROGRAM 
C 

C MIN mm CALLS SUPERVISOR RGUTIKES EASED ON 
C FLAGS 00 OPERATION HOCE CONTROLS 
C 

C INPUTS: CONTRCL INFORMATION EfFFERS 
C OUTrDTS: NONE 

C CALLS: SUPWPj SUFttIT* SUPCHT, £LWE& SUPITL 
C SUPEERi SlfBCTi SUPCAL SUPHLT 
C DESTROYS: NOTHING 
C MODIFIES: NOTHING 
C VERSION 10 
C 

2 ^INCLUDE* ‘FlrVCSIBt FOR) 

s 04^****^*****-^*****^ (ttwtmwwtmi ****** 

a C 

8 C VCS SYSTEM MEMORY ALLOCATION 
8 C . 

3 = IMPLICIT !NTEGER*2(A-E> 

4 = INTEGER*! CID. KIB> DOB* TOB> PIB> PCS* VOS 

5 8 INTEGER-*! PKFEUFi PKREUFi PKFSAV, FKP-SnY 

i » INTEGER*! MXIPX(6),TFLAG<6) 

7 8 INTEGER*! BSBUPCQf 10) 

8 C 

S 8 LOGICAL*! ICFVEC(20>> CNTVECttS), SINT <B>, SHSK<8), DGGM(fi) 

9 8 LOGICAL*! DEFIOV(20),DEFCTV(1S> 

10 * LOGICAL*! NEXT, ADJUST# RESET* Glfii, CRLERT, FHRFRL AUTO- MANUAL 
8 C 

11 a CHARACTERS PAFJIE5,*K3SHES<10> 

!2 s CHARACTER*! OSPCODU0) 

13 8 CHARACTERS OSEC-OLGr£f£S<10> 

14 b CHARACTERS ESRt!ES<2O),DeGI2S(2O)iRWit€S<40) 

8 C 

15 s DIMENSION OEFFRH(20)»OEFFHT(9) 

8 C 

= C COMMON BLOCK ALLOCATIONS 
8 C 

16 8 COMfflM/CPfflEL/NEXT. ADJUST; FE5ET- AUTO- MANUAL FKRFAL RUN, CALERT 

8 C 

i? * COMMON/HESTE2/ PARMES(28) 

* C 

18 s CGMJN/MESTEJ/GPStES 

a C 

19 a COMMOH/HOSHES/KISKES 

a C 

29 a C0KM0fl/SE>lFMT/£E}a s TR(16) 

a C 

21 8 CGMHGHff K£Ufr7XFgUF<10)j PKREUFdO), PKFSAY- FKEAV 

8 C 

22 a COMHOH/CLOCtVTFLAG 
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RST-fll 


8 C 

23 8 

a c 

24 o 

n •: 

25 8 

8 C 
25 8 
8 5 
2 ? 8 
s C 
28 8 
8 C 

29 a 

8 C 
*0 * 

8 C 

31 « 

8 C 
22 * 
a C 
S3 a 
8 C 

3d 6 
8 C 
*5 8 
8 C 
35 = 

8 C 
37 8 
s C 
35 * 

8 C 

39 = 

= C 

40 n 

8 C 

41 8 

8 C 

42 8 

s C 

43 8 

8 C 

44 = 

45 = 

40 = 

47 * 

45 s 

49 a 

8 C 

50 = 

51 8 

52 * 

53 3 

a C 

C 


tt3MSS!S/K$H 
C88fflyS353rfUKl.«0> ( FCKUffl)# 
CCSKH/MFVBS/KFV® 
eaE'ffli/cfnvBS/envEB 


@ 7 : 2 ;:^ WJZ 3 CO 

(v*![ 


CfiMHN/GffiVEC/CPSVECCie) 

(MtWFftFMC!ffKT(ie>i HtNKtf)* MtilM 
CCM:T^yLSTFfS(ieO0>. DSCfiTUiS) 

manmam/mmai 

mmXMBPlO, OUHIff (19) 

Wl/SfiVER^fiVB<20) 

COKHOtl/PfiRfittS/ PfiRfiH(29> 
mtmS&F/BSBF 
CGHNH/EEBU/ ERRCP.<8> 

CGKHOt 1/COWBUF/ClB C S0>* KIB(8)i D0B(8># T0B<123>, PIB<2), FCB<2># V0B<2> 
COM1M0EUF/SIB<10 )i SD3tt0> 

C OHKffl l/CONT®/£EHTfiB(i0/ 2># RCCMT d0# 2) 

COWOfMESTfi&^iaSS* D E2JIES# RUHtESi DSFC0D 
CMtMVOEFfiLT/ DEFIOV# DEFPRMi OEFCTV* DEFPHT 
CCHH0ft/T)EFrfiB7 OEFRNGdO# 2)< DEFCOHdG# 2> 
comofj/tEFore/DEFePSde) 

CGMHOfVGEFKOS/BEFHOSdfi) 


sfiVE /cpffa/i /pneeuF/# /savera /erreufa /sehdel/ 

SAVE /'DEEUGA /10FYECA /CHTVECA /OPSVEC/ 

save /mm /senneha /cpspnta /clock/# mk/* /DEFifts/ 

SfiVE /PfififtHSA /ERRFUjA /CtBIEUFA 'SEfiSUFA /CONTftBA /HESTfSA /BEFfiLT/ 
SfiVE /SEHF WA /HE5T32A /NE5TB3A /DEFOPS/ 

SfiVE /DEFKOS/ 

EQUIYfiLQKE <D03d)#D0BC)#<t>C3<5>iD0SN> 

ESUIffiLENCE <0PSVECd)>0Pf[GBE), (0PSVEC<2># NQDECT)# «.'P5Y£C<3>. F.HGHSK) 
ECUIYftSWCE <0FSVEC(4)» CfiSEfiS)# <0PSYEC<5># RftTECK) 

ESWVfiLENCE <CfiSVEC<$>» STATUS)# <TIHE# TFlfiG<4» 


54 


BUIVfiLSIGE <ffi!fi):<3)#fIHXS!R># <HMfiX<2)#WHES!?> 
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c 

n? r»pt|j:s 

c Fscepfis ismianai buev point 
€ 

55 cat £upit 2 

G 

57 cat SUPCUT 

c 

C K3RKflL OPERATION LOOP EHTRV POINT 
C 

5? im continue 

c 

c sensor input- cat 

c 

50 cat SUPINP 

c 

C TEST OPERATION HODS BO CfiU, SUPERVISOR RGUTIfE 

c 

C «DS a o ESUT 

50 !F<OPMCD£ El 0) Cftl SUFEXT 
C 

C OrHC-DS * -1 I RESTART 

51 IFCOFKCDE E9. -i> GO TO 100 
C 

C OFHODS » 1 1 NORMAL 

52 IF<Gf NODE. Eft i) Cftl SiiPCNT 
C 

C OFHODE 8 2 * DEBUG NODE 

53 IF<ffH0DE.EGL2) CPiL SUFCEG 

C 

C OFHODE 8 4 1 ML RODS 
64 IF(CFttODE. Eft 4> CPU. SUFCHT 

C 

C OPKBIE a 5 i CFUERflTE 
S5 IF<CFH0D££ft5> Cftl SUPCfiL 

C 

C OPMODE = 3 J HfiLT PROCESS 
S5 IF(OFKOD& Eft 3) Cftl SUFHLT 

C 

6? 0rFHTS(7)=9 

C 

C BUFFER ERROR FLAGS FOR TEN SECONDS 
C 

S3 DO 1019 I=LNHXERR 

S3 BREt'?CI # H0D(TIHE.19J+l)=ERRCR<I> 

79 1019 CONTINUE 

C 

C TEST FOR PRESENT ERROR BID PROCESS THEM 
C 

’1 DO 1029 MitNBR 

72 IF<ERSOR(I).NE.0> TtO 

7? 1EHPKM 

C Cftl ERROR PROCESSES ROUTINE 
?4 Cftl SUPERS 

73 END IF 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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PAGE 4 


COMPILES 


C 

C I? MODE CHANGE SKIP GUT 
’5 IF W3GE. SL O' GO TO 1900 

C 

« im C0MT1MUC 

c 

C cr°«JT BQUTIKS 

c 

n CALL sjjpout 

c 

•/? QO TO im 

c 

SO END 


OiRjGINAL PAGE IS 
0F p OOJ? QUALITY 


MODULE ilFORHATiOK: 

CODE AREA SIZE * 0112H 2740 

VARIABLE ARES SIZE * 9914H 260 

WBXIHW4 STACK SIZE * 6002H 20 

175 LINES READ 

ft PROGRAM ERRQRfS) IM PROGRAM UNIT VCSFRG 

$ TOTAL PROGRAM ERRORtSV' 

«(0 OF FORTRAN COMPILATION 
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CWtlsR 


PflOE i 


»iH! w»mo v>i eoNpiuvmn cf pmumhuhit siw 
vs *sr ms pucsd in tfi'vessup.cej 
w:ie? wto wr porno .fi.vcssup. for 


1 SUBROUTINE SUPIHP 
C 

C SUPIHP CONTROLS INPUT TO THE VCS 
C 

C INPUTS: I/O CONTROL VECTORS 
C OUTPUTS: NOTHING 
C CPLLi- SENIIP* INPCOUi COHVftT 
C DESTROYS. NOTHING 
C CODIFIES; S. I. B. . P. !. B. 

C VERSION 1 0 
C 

2 IMPLICIT INTEGER'S (ft-Z) 

C 

2 LOGICftL*! IOFVECj IOFSEH 

C 

<1 COmjfWSVEC^KCe/OCL'MCS) 

c 

5 COMMON/ I0FVEC/I OFVEC C 20) 


ORIGINAL 
OF POOR 


PAGE IS 
QUAUTV 


if EQUIYPLENCE • lOFVSmtOFSEN) 

c 

7 SAVE /IOFVEC/i /QFSVEC/ . 

C 

l> * * * KM i ***** ***** * ** ******* * ****.**^***>TO K+ *** Mm ****** 

c 

C INPUT CONTROL PflNEL INFORMATION 
C 

3 CPU INPCDU 

C 

C EXIT IF HRLT HODS 
3 IF( 0 PH 0 DE E& 0 ) RETURN 

* C 

C TEST SENSOR INPUT MASK fiND CALL I/O ROUTINE IF TRUE 


19 IF (IOFSEH) THEN 

C 

11 CfiLL SEN UP 
C 

12 CfiLL mm 

c 

13 DID IF 
C 

1*1 RETURN 

15 DID ‘ 


K00ll£ INFORMATION: 

CODE PREfi SIZE = OOlEH 30D 

VARIABLE fi?£3 SIZE * 0OOCH OD 
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RSTSftK gc.,'0 

mm sin « oootH to 

aa UIHES SEW 

a sssor^s' m parish win supinp 


Pftffi 2 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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WILES 




rsif-l! P9R*FSN-tO COMPILATION Of fSflQHW UNIT StJFOUT 
OB :EC T KfiHU PLflCS IH tPL-.VOSOP. OBJ 
WILES WO® SV: FCRTSO :Fi:VCSSUP FOR 


original pass ® 
OF POOR 


1 SUBROUTINE SUPOUT 
C 

C SUPOUT CONTROLS OUTPUTS FROM THE VCS 
C 

C INPUTS: I/O CONTROL SECTORS 
C OUTPUTS: NOTHING 

C CALLS: CNTOUT, OUTDSP* FORMAT* SflYWT, INTREN, OUTPUT, CLOCK 
C DESTROYS: NOTHING 
C MODIFIES: NOTHING 
C VERSION L8 
C 

2 IMPLICIT INTEGERS (ft-2) 

C 

3 INTEGERS TFLflG<6>, BYTE, LEDS 

4 INTEGER*! CIS<80>, KIB<3>, DQB<8>, TQB<128>* PIB<2>, P0B<2>, YCB<2> 
C 

5 CKfiRftCTER*i DSPC0DC19) 

$ CHARACTER*4 D06C, MEN, ERRHESC20), DSGf!ES(20>, RUf«ES^20) 

? LOGICftL*i I0FVEW2O), I0FV0T, ICFCfiS, CNTVECdS), CHMPKF 

C 

8 COfWON/OPSPNT /OFPNTS ( 8 ) 

C 

3 COMGN/IOFVEC/IOFYEC 

C 

10 COmGN/ttOClVTFLM 

c 

11 C0HNGN/T3PSYSC/QFMQ0E, KODECT, RRNQGKt OPSBR, P.ATECK, 0PSYECC5) 

12 (XMKON/teSTAB/ ERRME5, OBGflES, RUfflES, DiPCOD 
C 

13 COrtnONyCNTVEC/CNTVEC 
C 

14 COMN/CMUF/ CIS, KIB, MB, TOB, PIS, FOB, VOB 
C 

15 EQUIVALENCE (BYTE, TEHP>, (LEDS, XT31P) 

IS EQUIVALENCE COOBX, DOBC5> ), (CNMPKF, CNTV£C<3» 

1? EQUIVALENCE (ICFVECC15), IOFCfiS), U0FVECU2), IOFVOT) 

18 EQUIVPLBICE <T!Ht,TFU«(4)) 

13 EQUIVALENCE (OGBC, D0BC1»> <DOBH, DQB<5» 

C 

20 SAVE /CLOCK/, /CNTVEC/ 

21 SAVE /OPSPNT/, /IOFVEC/, /TESTfiB/, /COHBtlF/, /0PSVEL7 
C 

c 

C TEST OUTPUT CCtiTRCL MASK AND CfLL IF TRUE 
C 

C IF AUTO SUN OR MANUAL RUN THEN DO THIS 
C 

22 IF<0FHQDS. S3, i OR. CFflODE EQ. 4) THEN 
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compiler 


m 4 


C 

C IF AUTO m 

23 IF«PHtt& SB. i) THEM 

J4 call CUTOUT 

25 MBC-MME5<5) 

c 

ELSE 

C ELSE manual MODE 

27 OOBC*OMMES(i7) 

28 END IF 
C 

C PUT TIKE INTO DISPLAY 

29 OOK$* T 1HE 

38 CSLL FOEMKDOBN) 

c 

C tRUHXXXX OR OPESKCtt 

c 

31 CALL SAVDAT 

32 CALL IHTSEH 

33 GO TO 188 

34 END IF 
C 

C DEBUG mcos 

35 IFCCPMOOE. EQ, 2) THEN 

36 D0BWMK5<7' 

3? DQBtHBMCSCB) 

C 

C *0E3UG * 

C 

38 GO TO lOO 

39 END IF 
C 

C CALIBRATE MODE 

40 IFCOFNODEEBLS) THEN 

41 D0BC=SUflME5<3> 

42 DO6N*RUNNE5<i0> 

43 W3C1M2AH 
C 

C *CAL5RflT 
C 

«w END IF 

C 

45 108 CONTINUE 
C 

C IF ERROR PUT in DISPLAY 

46 IF(0HW5<7). Ea 1) DOetMHMESCIS) 

47 CALL CUTPSP 
C 

C BUILD LED DISFLAY BYTE 
C 

48 IF(OPHOOEE9lD THEN 
C AUTO MODE 

49 I0P*2 

58 XTEMP=#02H 

31 ELSE 

52 IFCOPMDE EQ. 4> THEN 

C MANUAL MODE 


ORIGINAL PAQe « 

0F POOR Ouaut? 
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3 a 3! '<£ So ^ ft Sift 3 ft & tS « <3 S3 


WISH CttPILffi 


53 tflW 

54 XTEhP=#0iH 
C 

ENDIF 
ENDIF 
C 

TBW 

T3!P»TEHP+tOP*S4 
YEHP=TEW»+I«0ECT*15 
TOP=TB^HiWGOC *8 
TEH^TSIWPSENIM 
c 

C ERROR BIT 

IF'WNTSff). EQL 1) THEfl 
TEHP*T£fP+i 
XTEMP s XTEhP+4 
END IF 
C 

C PICK CONTROL 

IFCOKPKF) IBP=TEMP+2 
C 

C OUTPfJT STfiTUS TO LEDS 

CfiLL OUTFUT(HMK.BVTE> 

C 

C OUTPUT STfiTUS TO LEI'S 
C INVEST BITS 

XTEHP-QCTEIPti) 

C XTEHP UPPER 4 SITS MUST BE ZEROS 
XTEJWXIEHP.flWD.MFH> 

CfiLL 0UIFUT<«6H.LEDS> 

j 

C SV NCAGN1ZE SYSTEM TIMING 
cfajL aocK 
c 

RETURN 
END 


ORIGINAL pm*. ® 

OF POOR Qy^ t 


NODULE IHFORMftTI^M: 


CODE fiRER SIZE = 018CH 4440 

WRHBLE fiREfi SIZE « 0W6H 6D 
WMRUH STfiCK SIZE * mm 16D 

144 LINES RESD 
\ 

0 OROGRRH ESROR(S) IN PSOGRftM UNIT SUPOUT 
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FSRHSfi COMPILER 


ISIS-II ?GRT=RI-SO Vt 1 COMPILATION OP PROGRAM WIT SUPCHT 
03JECT hME PLACED IN tFl'.VCSSUP. 06J 
COMPILES INVOKED 5Y- FCPJ'30 tFiiWSSUP. FOR 


ORIGINAL PAGE IS 
OF POOP QUALITY 


PftQE 6 


1 SUBROUTINE SUPCNT 
C 

C SUPCHT CONTROLS VCS CONTROL ALGORITHH USE AND SIGNAL GENERATION 
C 

C INPUTS: OPERATION CONTROL VECTORS 
C OUTPUTS: NOTHING 
C CALLS: CHTRFOj CJfTRRD 
C DESTROVS: NOTHING 
C NOOIFIES: NOTHING 
C VERSION 1 0 
C 

2 IMPLICIT INTEGERS <fl-Z) 

C 

3 LQGICAL*i CNW£CQ6>, CNMOUT, CNHRER, CWFRT 
C 

i COWON/CNTVEC/CMTVEC 


:? 


* 


EQUIVALENCE <CNTVEC(8>, CNMFRT), (CNTVECW, CNIfiER); (CNTYECttO), CHKCUT) 



I TEST FRONT CONTROL MASK 


7 IF<CM!¥ST) CALL CHTRFD 


£ TEST REAR CONTROL MASK 
C 

3 IFvCMEER) COL CHTRRD 

C 

? RETURN 

did 


COX RWr SIZE * WISH 21D 
VARIABLE AREA SIZE s 08SSH OD 
MAXIMUM STACK SIZE = M02H 2D 
33 LINES READ 

0 PROGRAM SRRORCSj IN PROGRAM UNIT SUPCNT 
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COMPILER 


vi i compil-micn & uhit supoeg 

03J£C T !'< - r i vCSSlir. OBJ 

COfPILE? INVOKED BV’ 'Cf.rtt :'i y>:S?P =03 


ORIGINAL PAGE IS 
OF POOR QUALITY 


SlffiOUTIIiE SUrC-BQ 


: !; r -£ OsGUB OPERATION SUPERVISOR 

■: !W5: -issue ODffTROL VECTCw 
C , X" 3 . i TS: NONE 

C CSU.F DSyfiC L [•S'JCCO- BUGIN, UBUGOT; IHTBDS 

: nudTPi osuaia wwck, kwe. xtzihp 

I llz NOTHING 

C *t»!?:ss- *r?~rl»t0 

C 'ESi'.C'K i. y 

SSLICIT lNTEffitt (fi-Z) 

C 

LOGICAL*! i-B&KS) 


- comcti/o=Bt)a ; os& M 

• _ nooegtiSsngck.- 

i CCW^SK/rairK, EtWlKiSl 

7 SAVE 'DEBUS/, /CfSVEC/, /WORK/ 

f* 

I *-i I/i?==-=t.? T OiirSLS 

: Cr- INTROS 


$ 

if* 



0 INPUT DEBUS :c‘!-a ==0!* -pnel 

-■ 


rai dsugci 


* T 

” :5'.5 'ME “AO CaL CORRECT rt-V 



:=> “=:'•? ;0. SIS’* Tr£l 


* '? 

z zii : ST T J SIT HOC£ 

12 


CMEE-e 

13 


RETtSM 

14 


END IF 

15 


. •» , T?^fp ’ y i i *+& »_ ijs-uGOT 



je.Tc^r.; c,i y } ^ (6) 

■? 


" r ??10.zl7- CSu. CiuGiH (i) 

-j 


;f ■ T E i; :C' -i 4- :=u. nzw 

* ; 


•' "E^: 0 £1: ;fii C-eijGTP 


FS25 ? 
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K«.S 8 

i ii W ° 




ORIGINAL PAGE IS 
Of POOR QUALITY 


:? 1*10. &$) ca. 


:* "Ej'rta ?i 7^ 

!?nswas5i -: s ~ 

‘ CONTROL 5<J>, £- a *ii‘ 

GfiLL C&W 


fjV 

uf-\- =C* CC-NTUfe-E ihFv'T 

j 


GO TO 1W 
EHO 


• “ .i£ ihfwhthh 


CODE fiREft 5:EE = MW 

1650 

VfiRIfiBLE PE 4 :I2E = WS2H 

20 

MffitlW* r=CV 5!-E = 0‘>32H 

20 

54 Lit It 4 «=-0 


0 *9065** Iti B Sy6PfiW 

tffIT ?J?0cQ 
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PCW tw UP 


t.k: »:•-« ■-» x v *:j r :a. sf procbsh wr r.*:” 

:i: m 

!' •“*! VCSaOP. FOR 


■■•f, , c 

* * ' • * * * * •>* 
* * »; ■ ;; ■ * * 



rife! 


? 


J.£?vv'INE ftfPlTZ 

: £.f:"2 imtaizes the program «fsKflLS&K* ss «» cam vectors 

c ivirs ■ ‘iifc 

: ?.77V T £- iHITIfLIZED SVS^EK 

•; Xii INPCOU, IKIK& AIOnL IIKKH, O'JTK?. ITZ1NP» flIOCftSi HSEC2H 
C SESTRT 
: ‘SS7R3V5: NOTHING 

C fCMFIB: INPUT SLEEPS, PARAMETERS, INTERRUPTS, CONTROL INFORMATION 
: VERSION 1 9 


«mu&E<’Fi-vca<EJi -c?;- 


i t #■ • > 


3 

3 

3 = 

i s 

5 * 
5 * 


C VCS SVTSH lesijr.v ALLOCATION 
C 

!M 5 LiCt' Ih 7 S 3 tR* 2 <ft“ 2 ) 

!-*-iTHSEx»i CIS. kI 3: M’S, TCP PIS; PCS; VOS 
I»*TBffi«l *?»5 *W PKF?AV,PKRSAV 
flMXIPXM), TrLAuui) 

INTEGER*! fcARSUr iCv 

ujfiMSLvl iOF7=C<29;, CNTVECCiS), SIMTiS> vSM.S) 

*.06ICrt L*i DsFIOvaO, KFCTVttS) 

LOGICAL*! N5.\T, ADJUST, RESET; PM CRlBR?. FttFRL AUTO, MANUAL 


p-ARfiESitiosfcsao) 

MAAAC'SM &SPC00<16> 

WWfiCTSRH DOBC, OGEN, 0PSMS5<‘1S' 

CKRRFCTSM ERRMB( 20 M€fc 1 S£C 2 S). FMf£ 5 < 20 > 

DIMENSION DEFP»K20>* «FiW<8> 


= : yl'KON SLOCK ALLOCATIONS 

V? = CCIWN/CPAIIEL^EKT; ADJUST, ?£SET, AUTO. MANUAL FNSFfiL PM CftLBRT 

= C 

I* = COWN/VEFK/ pfip*2s«'20> 

- C 

i? = COtfCN^ESTSl/OPSMES 

= c 

LA = COliMOH-MOSHES'RC^tES 

* C 

10 - CCWf/SGPNT.'SSPTREiSI 

* C 

21 * CCWM-?IKBLF.'®KFBl5 r <i-3); fc»Jr ■:« >.* PKFSBV, PKRSftV 

. * C 

22 = ^ONPCLOCK/T?*Aa 

23 = ymwsaw&&i 
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ta£ iC 


FQ^i 


* 


7 


S 


29 = 


29 = 


■J 

25 


:c = 

s 

37 = 


35 = 


39 = 

<L? 2 


43 = 


a s 


45 

47 


r 


32 * 
53 * 


X 


34 


1 3 * 7 : 15 ? 


wwswnl.- m' 
icfyec 

:■: *•*:*. f s~ e:.-chtvec 

•: ■•wvEC/opsvEC(io> 

C'^I^PfttavIOfHTiiO)/ Nwxao. HXIPX 
COi4iWSEHHEH/l5TPfiS<jeoe3< MCMTLU6) 
COWCH/CfSm/OFPHTSta) 

CmWKftK^?!0, DUBWiSS 
C0tWWSfiVEP/9fiVE(29) 

COWGWPflRHB/ PSRS1C20) 
mawsffifiasaiF 
comofi^fipp.o/ erhkm> 

CamKOntf /CIBttt >, KIBiS), MKSD, T09<i28>. PIB<2), P0P<2'- > 
C0MWSEWUF^IKlfl>/5DB(lB? 

CQKf , £4i/tCWflfi/ , SeHTSB<i3» 2), P6CMT<i0i 2) 

C0h?W^'!7EST.7e/E\7f££; D3GPES, RLWES, DSFCGD 
COKWJN/CEFfiLT/ I€F!0V, M KFCTY, DE7?f! T 
BHJOMEFTfB/ «rSHS<10» 2)i DEFCWKiO, 2' 


osraim ram n 

QUALITY 


vrv2) 


C 0 MW 5 EF 9 K/DEF»S<lfl^ 

$ 

COHWN?C€rHOS/DEFW3S(16J 

C 

S»5 /CP3NEL/, /PIKBIFA /SAVER/, ISPSUFA / StNDEL/ 

SAVE OSSUG/, /I0FVECA /CNTVEC/, /GPSy£C/ 

Sr>E /OPKW, /SENHEH/, /QPSPHT/* /CLOCK/, Atm/, /KFTRB/ 

SAVE /PSRfiMS/, /EKRFLG/, /CCKBUF', /S0BUF/, /COHTfiSA /HEST88/, /CErfiLT/ 
SftVE /SENPNT/, /HESTB2/, /ME5TB3/, /DEFOPS/ 

S me /DEFMOS/ 

c 

EQUIVALENCE /D08(i).KEC), CD0B(5),D0BN> 

EQUIVALENCE COPSVECCi), ufKOit), <0 PSVECl 2>, HQDECT), (OFSVECG) »»■&> 
EQUIVALENCE (Cf 5VECC4), CPSENS4, (CfSVECCSJ.fi&TECIO 
EQUIVALENCE (OPSVECCS), STRTUS), LTIflE, TFUfi<4» 


EQUIVALENCE (NHXSIR.- M«W<2)>, (NHXERR. NHfiX<2» 

1 . CNMXIQF.NKHW?)', vMWW, CNKXCTV, W?).*, 

2 ':*«m Wu. <MKPHT,NMAX<15>>, (NHXSSJt ’MMl)), 
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Fwrw»i CWPILSR ?&£ & 

ORIGINAL PAGE IS 
OF POOR QUALITY 

i v«*> cp ■ <tngt&WMW h (JwnfiP; imam, 

* *».’• \l-, fJWtCiW. <W©i*. IWW'rt 
3 ' rUwLEJICE CfEttIPtUWXR)' 

3 DISABLE INTERRUPTS 
:: CHI INTK«S 

C 

C INITIALISE I/O INTERFACES 
V CHI AI0IT2 

c 

C CLEAR ERROR FLAGS 
C 

5$ M 200 I*L NHXSSR 

55 B»0iK1)-e 

60 299 CCHTIfS.it 

C 

C SET KBU3 HfiSKS 
C 

61 DO 600 1*1/ fflXDfiG 

62 oeawn-. true. 

63 60S CONTINUE 

c 

C CLEAR ALL I/O BUFFERS 
% 

64 DO 800 IsLUISEH 

6? SI3<I)=0 

66 SBBU‘>=0 

v «0 CONTINUE 

r 

ii ' DO 500 M-MftCSP 

6? OOB<!'»3 

70 90O CONTINUE 

C 

71 DO 1605 I=LNMXKIB 

72 *aS'n=o 

73 1055 CONTINUE 

C 

74 DO 1100 MiNMXTRP 

“ T09<I)tO 

76 1105 CONTINUE 

C 

- DO 1200 1*LNKXCBF 

■? CIB(I)»0 

7? 1200 CONTINUE 

C 

55 VOB(1)=0 

?1 VOB<2>=0 

C 

C TEST IF OVERRIDE OF PARFsI-IETER SCOT (ONLV IF HfSTI PESTffiT !H CR05) 

92 KK=DKhE5'127 

53 DOBN=OS(jH3(5> 

C 5SVSITZ? 

54 CALL FFOKPT 

85 IF RESET) 30 TO 4000 
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FORTRAN cowls 


c 



C SST 
* 

KFPVLT I/O ^--' e 

w 

* 

M 380 MfMfcKF 

p 


IGFVEC<I;»CErI«<n 

% 

306 

CONTINUE 


C 



C SET 

utrALuT FASAHETESS 


C 


S3 


» 466 M.HD-PRM 

36 


rwfcfKl)»OEFPfiMI) 

31 

460 

> 

CONTINUE 


C :ST 

r 

DEFAULT CONTROL VECTOR 

?2 


CO 586 I=t»KCTV 

?2 


CHTYECm-DEFCTVCtt 


560 

A 

CONTINUE. 

?5 


OPPNTSUM 


c 




00 #.400 MiHHScN 

J? 


DO 1460 J=L2 

55 


RGCDATM, JfcOEFRNfiaJ) 

5? 


SEHTSBU/ DsDEFCONCl# J) 

100 

1400 

CONTINUE 


c 

C INITJALI2S THE OPERATION VECTOR 
C 

let OQ 1560 !=1,NMX0P5 

102 GPSVECU)=C€FOPSU) 

103 1500 CONTINUE 
C 

C SET Om CONTROL 
C 

104 DO 1600 1=1) 16 

185 DSCHTK I >=DEFH05( I ) 

106 1600 CONTINUE 
C 

C USE REST.'Si CODE TO CLEAR OTHER ffiSAVS 1 

107 CALL RESTS! 

C 

C DISPLAY T *FE ISSSAGE 

108 M5C=0sGHES(i2) 

13? NBHSQESCfi) 

C «SY5TAP? 

C 

110 CALL PROMPT 

C TEST IF BLOCK FORMAT PAUSE IF .HOT. RUN MODE 
C SKIP IF RESET 

111 IF(RESET) GO TO 3000 

C IF CASSETTE ON. WRITE ffifiCER FILE 
C 

112 CALL TfiPITZ 
C 

C CALL INTERACTIVE INITIALIZATION ROUTINE 
C 


ORIGINAL PAGE IS 
OF POOR QUALITY 



r 0*TR8i COKPILS 


113 

3000 

•:mwt 

VA 

C 

CfiLL IT21HP 

115 

400O 

p 

CENTRE 

lit 


SFWI 

117 


END 


ORIGINAL PAGE IS 
OF POOR QUALITY 


WHLE ITOiflTIOtl: 

WOE fiSSfl SIZE * 024CH 8440 

WRIPBLE fiREfl SIZE * 001SH 220 

mm sTfiCK size * sea* - ieo 

22? LINE5 REfiO 

0 reOOSfiM EREOR(S) IN PROGRfll (JNIT SWITZ 


PftdS 13 
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P-JPTFM WILES 


FfiGE 14 


IsIMI Fv?' 5i :.' « 'll i COMPILATION Cf PROOFS ITIIT SUPERS 
«WT M C BA'PJ TM *Fi'VCS«UP. OBJ 
WILES iS'-CKEDBV’ FviSTgO iFi-VCSSUP. FOR 


OR/Q(NAL PAQir re 
0F POOR quality 


1 


2 

j 

i 

5 

6 

7 

8 
o 

13 

11 

12 

13 

14 
13 

18 

17 

18 
1? 


20 


SUBROUTINE SUPERS 
C 

C SUFEKR FRCCESSE5 ERROR CONDITION FLAGS fiND OUTPUTS MESSAGE 


C 

C INPUTS’ ERROR FLAG VECTOR 
C OUTPUTS: ERROR MESSAGE ON DISPLfiV 
C "‘LIS: OUTDSPj INPCOUi FORMAT 
C DESTROYS' NOTHING 
C MODIFIES r N97HIHQ 
C VERSION 1 0 
C 

IMPLICIT INTEGER*’ <ft-Z> 

C 

INTEGEM ERREUr<8*19) 

INTEGER*! OOB. KI& OCB* TOB* PXB. ROB* VQB 
C 

CHARACTER*! OSPCOD(IO) 

CHARACTERS C-OEC 

CHARACTERS ERR!4ES(20^ B6GHES<20) t RUNMES(20> 

C 

CQHKOMESTAB/ERft' 'S< DBGMES^ RUNH£5> OSPCGO 
C 

COWIOn/COMEUF/CQB(S0); KIB(8), MB<8>. TQ6<1£3), PIB<2)i P0B<2); V0BC25 
C 

WON/ERRBlF/tRRBUF 

C 

C 0MI10N/P ARAMS/PARflll < 20 > 


c 

CCWIKI/OPSVEC/'OPHODE ODUM'S) 


r 

COftiljtl/EFFf LG/ERaOR^ 8 ) 

C 

CCffi'10tl/OFSPfn/OPPNTS(&) 

c 

C0MMM&'/73m WHMV(IS) 
c 

SP.VE /OPSPNTA /ERRFLGA /OPSVECA /TFiRAHSA /ERRSUF/ 
SAVE 4!ESTRB/ ; /C0i16UFA/H0RK/ 

c 

ECUIVSLEflCE (PRRfim2)/ESRLMT) 

EQUIVALENCE <BOB(i)/DQBC>* (MB<5)iMBN> 


C 


c 

C LOAD ERROR MESSAGE TO MSPLAV BUFFER 


C 

0 EP.R 

DO0C4UK5<15> 


C 

C PUT ERROR NUMBER IN DSBH 
C 


383 



COMPILER 


PAGE 


Zl 


TEMFS* T E:’PIO 


> 

NSU»;K*T«f!0*ESP«'' ,J S < R»' 


Cl 

* 

■iivaT [i’cpiav 



’ : :«l *cr^“ kem> 

5 


KE- f s *i«OB': S' 

25 




C ERR M-XX 5H DISFLAV 

25 

C 

CALL OUTDSP 


c ^st for error qverflon 

?7 


ET0T=0 



M 100 1*110 

2? 


ETO’l»tTOT+NINO(L EKRBUFttEWXi 

23 

100 

CONTINUE 


c 



C TEST IF ERROR COWT OVER UNIT 

31 


IF^ETOT GT SRRLMT) THEN 

7? 


IFWHOK.Eli) QPM00E*4 

33 


END IF 


C PAUSE IF CAL ; ELSE RUN NO PAUSE 

34 


CALL INPCOU 


C SET SPPOR FLAG 

35 


0PPNTSC7M 

33 

C 

EHKRtfEHWW 

37 

RETURN 

23 


END 


ORIGINAL PAGE IS 
OF POOR QUALITY 


NODULE INFORMATION: 

CODE P.REA SHE * OOBftH i860 
VARIABLE AF£A SIZE * WKH 6D 

maximum stack size * eoofiH ieo 

31 LINES READ 

3 WJQPflH EFROR'S' IN PROGRAM UNIT SUPERS 


384 



*CPTWM COMPILER 

ORIGINAL PAGE IS 

trIS-II FWTSWHO V2. 1 COMPILATION OF PROGRAM LWT SbFEsT °F POOR QUALITY 

«*ET AWC® III ^ VC??.® OBJ 
COMPILES INVOKED BY' WM :Fi:YCSrUP. FOR 


1 SUBROUTINE 9JPET 
C 

C SUPSYT STOPS THE VCS PROGRAM AFTER CLOSING DATA BASE 
C TO WAITS FOR OPERATOR INPUT AT THE C/D 
C 

C INPUTS' HONE 
C CLOUTS ►ICKE 

C CPUS' OUTDSP, INTROS) CLOCK, INPCDUi INTREH. CUTOUT 
C DESTPOVS; SIB. SOB) ERRORS 
C MODIFIES' OPMODE 
C VERSION L 0 

r 

2 fINCLUDEC ,Fi: VCSNEM. FOR) 

= c 

* C VCS SYSTEM MEMORY AUOCATION 

3 = ’ IMFtiriT l?fTSSSP*2vA-2> 

* * INTEGER*! C sClfi. DOB, TOB* P IB, FOB. VOcI 

5 * INTEGER *i PW.PWBUF,.PKFSflV)PKRSflV 

6 = 1‘ITEGFIM MXIPXCo), TFLAGvfi) 

” * INTEGER*! EKSEUF<8) ifl) 

= C 

9 = LOGICAL*! 10P*'EC<20>, CHTYEC(iS)) SINKS)# SMSK^i UBGN< 8> 

S = LOGICAL*! DEF!0Y>mDcFCTYU6) 

10 * LOGICa+i NEXT) ADJUST) RESET) RUN) CflE'RL PHRFPL AUTO. WNPL 

= C 

11 * CHflPBCTERM PARNES,H0SHE5(10> 

12 = CHARACTERS KPC0DC10) 

13 * CHARACTERS DOBC, DOBN) OPSMESCiO) 

14 * CHARACTERS SfRHES<20>> DEGHES<;20>, RUWES(20> 

* C 

15 * DIMENSION DEF!W20),DEFPNT<8> 

* C 

» C COMMON SLOCK ALLOCATIONS 
= C 

IS = OWWl'tPftEJNEXT. ADJUST) RESET* AUTO) MANUAL. PHRFAL RUN* CPLERT 

= C 

r * CCHMWDTESTB2/ PflRl€S(20) 

* C 

IS * COMMCWHE5TB3/OPSNES 

3 C 

1? = COMMOK^HOSfES/HiJSMES 

= C 

20 = COHNON/SENPNT/SEIPTRvlS) 

* C 

21 = CeMfm , P!KW.^BUFUO),FkREUFvl0))PKFSAV»PKRSAV 

a r 


?■> a 


COMMON, CLOCIVmAG 



rSMWN CCHPP.S 


ORIGINAL PAGE IS 
OF POOR QUALITY 


pp.es i? 


24 = 


COWCH^Dt-SL'l£t€Lv«>, FuEucB)* FOPOEL(400> 


25 = COmON/ICFVEC/ICFVEC 

= C 

2* * COMMC’tl/CNTVEC.'CMTViC 

a C 

27 a COtWOFSVEC/OPSVEC(13) 

= C 

28 = COWM'OPPAR!'ICHPNT<i0), NMfiX(iS>i MKIPX 

= C 

29 = ' COHW3N7SBIHEM/lSTPfS<3000)i OSCNTL(iS) 

a C 

20 = aW0M/0PSPN7AfPhTS(8) 

= C 

21 = C0K10tl/'WORK.'TEHP!0,O‘jhW(19> 

= C 

22 a (MWSflVSR/SftVE<20> 

» C 

33 = COMMON, TORAHS/ PARAM<20> 

= C 

34 = C0«f!0^BPBUF7Sr«UF 

= C 

35 = Cfflf«M/EH¥L67 ERRORS) 

= C 

3b = CnWWH/CQMBUF/CIB(80), KI5<8>. D0B<3> J T0BO28), PIBtffl* PCB<2>. V 0 B< 2 > 

= C 

37 = COH:WSOiBUF/SIB(10),SDB(10) 

= C 

38 = CC4^l/tOHTAB/SENTflB<19, 2>> SGCDAT (10/ 2) 

= C 

29 = CflWBHTKESTPfilTERRHES/ DsGfES, RUNNER DSPC0D 

= C 

49 = CWWN/TEFALT/ EFIOV, DEFFRb DE'CTV, DEFPNT 

a C 

41 = COWKWQtFTAB/ C€F?UG(10, 2), DEFCONdO, 2) 

= C 

42 = COM«ON/DEFOPS-’DEFOPS C10 > 

= C 

43 = C0ITOI7DERt0S/DEFMQS(16> 

= C 

44 = SAVE X&mj. /PIK5UFA /SAVER/, /ERFSUF/, /SENDEE/ 

45 a SAVE /DEBUG/, /IOFVEC/, /CNTVEC/, /0P5VEC/ 

4b = SAVE /GPPAPtV, /SENNEH/, /OPSPNTA /CLOCK/* /HORK/, /DEFTfiB/ 

47 a SAVE /FflRAMS/, /EKRFLG/, /COSUF/, /SENBUF/, /CONTAB/, /IESTAB/, /C-BFBL7/ 

48 = SAVE /StNFNT/. /MESTE2/, /T1ESTB3/, /DEFOPS/ 

49 = SAVE /DEFMOS/ 

a C 

50 = EQUIVALENCE (DOBQ), MBC>, <D0B(5), DGBN) 

51 = EQUIVALENCE (OPSVECCi), OPHGDE), (0PSYEC<2>, MQDECT), (0PSYECC2), RNGftSK) 

52 = EQUIVALENCE <QPSVEC<4>,0PSENR>, (0P5VEC(5>, RfifECK) 

53 = EQUIVALENCE <0P5¥EC<S>, STATUS), (TINE, TFLAG<4» 

= C 

54 INTEGER*! BIT5C8> 

C 

55 LOGICAL*! IQFCfiS 
C 


386 



Crtprr> w r^iptlPJ 


ORIGINAL PAGE IS 
OF POOR QUALITY 


pftGE 18 


7* 

57 

7? 


EOUI'.PLBICE ilOFVECaSJj IOFCflS) 

EQUIVALENCE <TBmfiIT5(i» 

EQUIVALENCE *:HHPXvl).. Hftm <WKEPR. Httfc2> > 




■ « 

0OK=RLW£5<is 

50 

P0EH=RUN?’E5<±9.> 

5i 

CflLL OUTDSP 


C S-SIT-J! 

C 

C CLERK VALVE OUTPUTS 

52 Wi)»a 

53 YC8<2>*3 
C 

54 CALL CUTOUT 
C 

55 TFUS<2>-0 

C WIT FOR CASSETTE TO FINISH IF ON 
55 IFGOFCSS) THEN 

r CflLL IffltEh 

65 19 CflLL CLOCK 

C KAI T FOR END OF SLOCK 
5? END IF 

C 

C DISABLE INTERRUPTS 

T 0 CALL INTRDS 

C 

C CLEAR ERRORS 
C 


"1 


DO 560 M.-8 

?? 


DO 60O J=i 10 

7? 


ERFBUF''!i j\=A 


600 

CONTINUE 

75 


ERR0RCn=O 

76 

500 

CONTINUE 


c 

C LOAD STOP MESSAGE INTO DOB 
77 DOBMUNHE5C1E) 

79 DQ6N*RUNMES(i7> 

c ::-stop-*: 

r 

7? * CflLL OUTDSP 

C 

C LOOP ON CONTROL PANEL TILL ENTRY BY GFERflTOP 

50 1000 CONTINUE 

51 CflLL INPCWJ 
C 

C IF CALIBERS ON THEN TEST NEXT AND ROJUST 
92 IF(CflLSPT) THEN 

C 

C IF RESET REBOOT SYSTEM 
ST IFi‘RESET> THEN 

94 OPHODE=-I 

55 GO TO 2000 

95 END IF 
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F.jpnjaki ^mppcp 


PAGE 13 


C I- NK7 GO 70 DEtUG 


07 


I=(NE<t> THEM 

« 


0PM0C&2 

9? 


GO T 0 2060 

JA 


END IF 


r 

If ADJUST GO TO CALIBRATE 

91 


!F< ADJUST) TEEN 

32 


0?M0DE=5 

h 


GO TO 2OO0 

94 

C 

END IF 


C END CALIBRATE SWITCH ON SECTION 

95 


END IF 


C 

C IF RUN SWITCH OH 
C RESTART SUN MODE , CONTINUE 


96 

C 

IF(RUN) THEN 


C IF MANUAL SWITCH 

97 


IFCHAHUAL) THEN 

99 


0FW0DE*4 

59 


60 TO 2000 

100 

c 

E*0 IF 


C IF AUTOMATIC SWITCH 

101 


IP(AUTO) THEN 

102 


0PM0DE=1 

103 


GO TO 2000 

104 

C 

END IF 


C END 

RUN SWITCH ON SEt 

105 


END IF 

106 

c 

GO TO i960 

197 

2000 

CONTINUE 

109 


RETURN 

199 


END 


ORIGINAL PAGE IS 
OF POOR QUALITY. 


MODULE INFORMATION: 

CODE AREA SIZE = 0136H 3640 

VARIABLE PEEP SIZE = 0014H 20D 

MAXIMUM STACK SIZE = 600AH 100 

204 HUES READ 

0 PROGRAM ERROR (S'' IH PROGRAM UNIT SUFEXT 
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FORTRAN COMPILE? 


rcrc-tt souWsfl VI 1 COMPILATION Cf PROGRAM UNIT SUPCAL 
OBJECT MOWA.E PLACE) IN :Fi:YCSSU? OBJ 
COMPILER I»W® FORTW :F!VCSSUP. FOR 


ORIGINAL PAGE IS 
OF POOR QUALITY 


SUBROUTINE SUPCfiL 
C 

c supcfiL is the calibration routine supervisor 
c 

C INPUTS: NONE 

C OUTPUTS: OPMODE AND RESET SYSTEM (HOT RESTART) 
C CPUS’ RESTRL PROMPT 
C DESTROYS' BUFFERS FOR DELAYS AND POINTERS 
C MODIFIES: OPMOOE 
C VERSION- 1 O 
C 

JIHCUJDEC :Fi’ VCSMS1 FOR) 


= C YCS SYSTEM MEMCPV ALLOCATION 
= C 

= IMPLICIT INTSSER*2(ft-2) 

= INTEGER*! CIB«KIB*OOB.TOBf PI&POB. VQB 

= INTEGER*! PKFEUF, FKRBUF. PKFSAV; PKRSfiV 

= INTEGER*! NNXIPX(S), TFLfiGCS) 

= INTEGER*! ERR£UFC3« 1GD • 

= C 

= LOGICAL*! IQFVEC<2B)» CHTVECCLb); SIHT(3>; SMSK(8); DBGM(S) 

= LOGICAL*! DEF I0V<29>/ DEFCTY(lb) 

= LOGICAL*l NEXT. AC 1 JUST; RESET; RUN; CfiLSRL FHRffiL AUTO; MANUAL 

= C 

= CHARACTERS PA3£S#f»SKES<i0> 

= CHARACTER-*! DSFCODC10) 

= CHARACTERS DOBC;OOEN,OPSHES<10) 

= CHARACTER*! ERRMES<20); OBGKESffl), RfJNMES(29) 

= C 

= DIMENSION CEFPRHC20); DEFPMT(8> 

= C 

= C COMMON BLOCK ALLOCATIONS 

- f 

= COMFWCPAIlEL/flEXT; ADJUST; RESET; AUTO; MAHIHL. PHRFfiLr PUN.- CALSPT 

= r 

= COMMQN/ME5TB2/ PSRHE5(20> 

= C 

= COtmTSSTBS/CPSMES 

= c 

= CGMHOM/HOSMES/MGSHE5 

= COMHOH/S0IPNTXSEHPTR<lo) 

= C 

= COtWCNA D IK5UF/W(FBUF(i0)i PKRBUFC10); PKFSAY; PKRSfiV 
= C 

= COMMQN/CLOCK/7FLAG 


CCRN0N/DE3UG/DBGH 
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COMPILE? 


?tm a 


M s 
2? * 


2? « 


29 = 


23 = 


30 


31 = 

32 = 

33 = 

2d = 

25 = 


2b = 


2? = 
13 = 
33 = 

40 = 

41 = 


42 = 


43 = 

J4 = 
45 = 
40 * 
A7 = 

40 = 
4? = 


50 = 

51 = 

52 = 

53 = 


54 

55 


CanW3E!»5LA.tKL<46:v PCDEL«'.s0>i RPIEL^OO' 

cstneH/i«F«Ec/ :cp.' sc 

CCW’ON/CN^EC/C>iT v EC 

cewN/epsvEC/CKVEcao) 

CWMON/GPPPPfl/ I CHPNTCIO); HMftXdS), NMXIPX 
COHMOH/S0WH/inFfB<30e0), DSCNTLU6) 

CGMfffi? l/CFSr tIT/OFrHTS < 3 > 

COfWHCFX/TQiPIOi DUmV(lS) 

CQnCH/SmBt/ERVE<20> 
tmavpmG/ pari#K28) 

CaniOH/BtfSUF/SaiBUF 

CWPl^PPRQ/ ERRORS) 

C0t«N/aW/C:S(£0); K!S<8>, M8<8>, T0BO28),P!9<2> ■ PO! BCS>, VC? 1 '-’ 1 

cawH/sEHBUF/ | siB(m sceae) 

CCmefl/CCffTfi8/Sa<TftB<i0i 2 ). FGCMKlfi* 2 > 

CCHKOfl^PMSRHES/ DBGf£5, RUMS, BEPCOD 
COfWMJEFfiLT/ J€?!QV, DEFPRHj DEFCTV, DEFPHT 
CMWDEFTRB/ CEFSHKiSi 2),DEFCOK(10,2) 

COmjN/KFOPf,I€FCPSa0) 

CCHWWFHB/tffHDS(iR 

ifl^E /CPHHEL'% /P1KEUF/# /SAVER/, /ESSSl'FA /SEMDEL/ 

S«4E /DEBUG/, /J0FVEC/* /CNIVEC/, /OPSVEC/ 

SAVE /OPPPW, /SBMEH/i /OPSPMTA /CLOCK/, /WORK/, /BEFTftB/ 

SAVE /PARfiHS/, /ERRFLG/, /COMBUF/, /SEN8UF/, /COHTAB/, /KESTfB/, /DEFALT/ 
SAVE /SEHPHT/* /HES762/, /HE57B3/, /DEFOPS/ 

SAVE /OEFWOS/ 


EQUIVALENCE (OOB(l)i DOBC), <D0B<5>, D08M> 

EQUIVALENCE <OPSVEC<1),0PHQDE), <OPSVEC(2>,MODECT>, <0PS«EC<3), RMGHSK) 
EQUIVALENCE <OPSVEC<4>,OPStNR>i (QFSVEC(5>,RATECK) 

EQUIVALENCE <0PSVEC<6>, STATUS), (TIME, TFLfiQ<4» 

C 
C+ 
c 

OOBMUKESt'5) 

D0SM=0BGHS5<'5> 

C *PUN!7i? 


ORIGINAL PAGE B 
OF POOR QUALITY 
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FWTCftH cwhjer 


PK£ 22 




CPU 


£ 

tp.'pr, tysr* T^Sil 

r fi_c=p i^v \£»!PiL£S rO? FESTPPT 


53l 

CP.ll SE5TRT 

sa 

s!ID IF 

* » 
S3 

0PH0C€=« 


C 

Si 

RETURN 

82 

Eft 


ffiDt.i£ WFOWWION : 


r.OC€ flffit SIZE 3 093PH 
VPK1PBLE PPEfl SIZE = SMJH 
MfiXUW STACK SIZE = ®0 hH 
113 LUES R B» 


58D 

i«D 

10D 


q pRQORW ECTOR'.S) IM PRC6RWI UNIT 9KA1- 


0!TIG?NAL PAGE IS 
OF POOR QUALITY 
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njPTPfiN COFILE? 


PAGE 23 


l SI?-! I «2 1 COMPILATION OF PROGRAM UNIT SUPHLT 

*««.£ IN ■rt:VC£SUP.CBJ 
COFILE? WOV® 5V FORT® rFi VCSiUP. FOR 


ORIGINAL PAGE IS 
OF POOR QUALITY 


1 SUBROUTINE SUPHLT 
C 

C SUPHLT WILL HALT EXECUTION IN A RECOVERABLE IW 
C 

C INPUTS; NONE 

C OUTPUTS: MODE STATUS 

C CALLS: INTFEM IHTRDS, OUTDSP, INPCOU 

C OESTHW* NOTHING 

C MODIFIES: OPCODE 

C VERSION L 0 

C 

C 

2 IMPLICIT INTEGERS <R-Z> 

C 

2 IHTEGEP*i C18,KIB/DGB,TOB/PI3>POB,VOe 

c 

4 LOGICAL,*! NEXT/ ADJUST/ RESET/ RUM CALERL PHRFAL AUTO/ MANUAL 
C 

5 CRfiFAC7E?*4 009C, POEM 0PSfE5<i?) 

6 CHARACTERS EffiHE5(»>< DBGME5i20>/ RUNMESC20) 

7 CHARACTER*! DSPCOO(10) 

C 

9 C0MMON/COM5 i jF/CIB(80>j K1B(B)< 003(8)/ T0B<123), PIBC2) P0B<2), MS (2) 

C 

9 CONHOM/'OPSVEC/OPNODE/ QDUHC9) 

C 

10 COfflON/CPfiNEL/NEXT, ADJUST/ RESET/ AUTO/ MANUAL PHRFAL RUM ifiLEPT 
r 

11 COW»L'>EST®/«RHES, DEQUES/ RUNMESj KPCOD 
C 

12 SAVE /OPSVECA /CPANEL'/ /COMBUF/# /HESTAB/ 

C 

12 . EQUIVALENCE (DOBC; DOB 1 ’!')/ (DOBM 00B<’5) ) 

C 

C 

14 CALL INTROS 
C 

15 DOBC=RLW£S<li) 

IS D0SN=RUNI«ES<i2) 

1" CALL OUTDSP 

C 

18 10 CALL INPCDU 

C 

C TEST IP NODS SWITCH IS IN RUN 
1? IF(RUN) THEN 

C 

20 IFiAOJUST) THEM 

C IF RUN fit© ADJUST GO TO MANUAL NODE 

21 QPH0DE=4 
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fortran other 


ORIGINAL PAGE IS 
OF POOR QUALITY 


PfiOE 24 


22 

22 


r 


.10 T.J 

2iD IF 


■a if io T o ieo 

C IF KUN »fCDE AD NEXT JUST CONTINUE MhERE LEFT OFF 
C 

C ELSE IT 15 IN CPLlSPflTE POSITION 
25 ELSE 

25 IF<RESET> THE?I 

C IF CfiLL NODE fiND RESET STOP FROORfiM 


27 


0PMOC'E=O 

23 


00 TO 100 

w 

C 

END IF 

ZO 


END IF 


C KBIT 

71 

C 

00 TO IO 

72 

100 

CfiLL INTREN 

2i 


RETURN 

24 


END 


•■‘OD'.iE PIFOfiHfiTICM: 

C0C€ ftREfl SIZE = 006FH iOSD • 
VARIABLE PREfl SIZE = 002SH 4QD 

KPKIHJI STACK SIZE = 0HflH ISO 

72 LINES READ 

0 PROGRAM EP.R0RC5) IN FROGPfM UNIT SUFUT 


0 TOTAL PROGRAM ERROR* S> 
END OF FORTRAN COHPILmICH 
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F9PWM CC MD !L£? 


ORIGINAL PAQtJ* 

OF POOR QUALITY 


PAGE 1 


ISIS-!! F0»*WN-» Vi 1 COMPILATION OF FPQGRFH UNIT SEMIN® 
05 r EC T “C'CLIS ?l = C5? 1*1 •Fi/v'CsEilKHJ 
COPIES* WOKE* 8M- FCf:T?9 :Fi TCSEiH FOR 


1 SUERCUTINE SBlIliP 
C 

C SENINP CALLS SENSOR INPUT ROUTINES UNDER I/O MASK CONTROL 
C 

C INPUTS: I/O HfiS BUFFER 
C OUTPUTS: NONE 

C CALLS; ItPCID) IMF"**. flIOfiDC, SENRLA POCITZ 
C DESTROYS: NOTHING 
C MODIFIES : SENSOR INPUT BUFFER SIB 
C VERSION 1 O 
C 

2 IMPLICIT INTEGERS (IHfcJ-Z) 

C 

3 IMPLICIT LCGICflL*l(I) 

C 

4 DIMENSION mm V 

5 DIMENSION 51B(10). SD608) 

i' 

* 

6 COHMOM/WvEC/IOFVEC'S), 

1 I0FCID, IOFMF; I0FFKR- ICFVCF, I0FVC& IGFYOL ICFDSP, IOFKEY. 

2 IOFCRSj IOFCRT/ IOFCOU, IHJH<3) 

C 

7 COMOM/OPSVEC/OPHOD& MODECL fiflNGCKi OPSEUR, RATECIG OP* JH<5) 
C 

3 COKKQH/HORK/ TEMPI&5INPNT* NHDUKlfi) 

C 

9 COmON/SENEUF/ SIB, SOB 

c 

10 SAVE /NORtfA/UPSUEC/ 

11 save /iofvec/i /senbuf/ 

c 

C INITIALIZE m EVERY TIME FOR SfirETYS SRKE 
C 

12 CALL ADCITZ 
C 

12 DO 180 J=L5 

C TEST IF I/O FLAG ON (TRUE) 

14 IF(IOFVEC(M» TriEN 

15 SINPNT=J 

C CALL A/D DRIVER ROUTINE 

16 CALL RIOADC (SINFUL TEMPIQ) 

17 SIB(SINPNT)=TEMPIO 

13 END IF 

19 100 CONTINUE 

C 

C 

C TEST I/O FLAG FOR CIO 

c 

29 IFTIOFCID* CALL INPCID 

C 
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FORTRAN COMPILER 


PACE 2 


C TEST L O Fire FOP PICKS ORIGINAL PAGE IS 

C Of- POOR QUALITY 

21 IFi'KFFKF. OP. I0FF«> CPU INFOS' 

C 

C ^AFDMAPE S P T CH FOR ft/D PiFUT HIRES 

22 00 200 J=L5 

22 DUWWWsSIB'P 

24 200 CONTINUE 
C 

25 SlBttMWMK*) 

26 5IB<3)=C*JM!'tV<5> 

2? 

25 £ IB C 5>*r*.<MNY< 3) 

C 

C IF PATE CHECKING ACTIVE CftLL SENSOR UNIT ROUTIIE 
C 

2? IFffiffflEOL E a i) CHI SENRLH 

C 

20 RETURN 

31 END 


MODULE IMFOPHATION: 


CODE fl PEA SI2E = OOSEH 

1900 

VARIABLE AREA SIZE = O0OCH 

12D ■ 

MAXIMUM STACK SIZE = 0002H 

2D 

71 LINES HERD 


0 PROGRAM E*®0R<5) IN PROGRAM 

UNIT SENINP 
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to CO *J CT. UT ^ Cj Jv> !-*■ *4> 0t> *M ^ -JJ -p- w to t— irl Oi 


fp^tsph COMPILER 


PAGE 3 


-H FOR^AN-M V2. 1 COMPILATION OF PROGRAM WIT CCNVPT 
: T *WJL5 PLACED IN :ri YCSEKOBJ 
IIP INVOKED SV- PORTSe -Fl:YC:Em ? CR 


ORIGINAL PAGE IS 
OF POOR QUALITY 


SUBROUTINE CONYRT 
C 

C CONYRT CONVERTS SENSOR INPUT DATA TO EHGIIEER1HG UNITS* AND 
C DOES OPTIONAL RANGE CHECK 
C 

C INPUTS' SENSOR INPUT DATA IN SIB 
C OUTPUTS: SENSOR DATA IN SDB 
C CPLLS' CONPK 
C DESTROYS: NOTHING 
C MODIFIES SD3 
C VERSION 1 0 
C 

IMPLICIT INTEGERS OHW-Z) 

C 

INTEGER*! WWW 
C 

DIMENSION SIB(ie).SDB(») 

c 

LOGICAL*l IOFYEC<20> 

C 

COMHOH/OPPARM/ICNPNTaO), NHXYEC(IS), MXIPXGS) 

C 

COMMGN/IQFVEC/ IOFYEC 

C 

C0MM0N/5ENBUF/ SIB, SC-B 
C 

COMMON/HORK/ TEHPIO, SIHPNL DiJmY<18> 

C 

EQUIVALENCE (NffSENr MttVEKi)) 

C 

SAVE /IiOFVEC/, /SEHELtFA /CPPftRM/, /WORK/ 

C 

C 

DO 100 I=L NMXSEN 
C TEST IF I/O FLAG ON (TRUE!- 
IFHOFYECa+D) THEN 
simiT=i 
tempiq=sib<i) 

C CALL DATA TO ENGINEERING WITS CONVERSION 
CALL CQHFMC 
SDB(D=TS1PIO 
El© IF 

100 CONTINUE 
C 

RETURN 

END 


MODULE PH0PHA7I0N: 


396 



FC'RTe^i COMPILER 


PftGE 4 


CCvE 5!.‘r * Si’SSH S i'j ORIGIH^' PA'S* ■** 

MISSIS WS* SIZE * «e?4« # ftF pr V> t UAUTY 

wyjHijM JTficK SIZE S SS02H 2D w " " 

47 LI l iE5 SCT 

$ 5C9GPRH sFPCR'S) III POGFriH GNIT CCHVF 
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FflPTPfiM COMPILE? 


FBG£ 5 


I?!;-:! cCf~6M-:0 l »2. 1 CO'*iL?~o*| '0= wflffifll 'JHIT CUTOUT 
CfET **«£ e L*:EO I'! ■« •‘-■CSC'.H. OBJ 


COMPILE 5 ;*i , 'C , 'E!' i g ' 


m-'KSbI'K POR 


ORIGINAL PAGE IS 
OF POOR QUALITY 


1 SUBROUTINE CUTOUT 
C 

C CUTOUT IS the CONTROLLER OUTPUT ROUTINE THIS CRLLS THE 
C PPPROPRIflTE OUTPUT ROUTINES fiS PER THE l/Q MASKS 
C 

C INPUTS: I/O MASKS 
C OUTPUTS’ HOME 
C CALLS' filOVOT 
C rESTPO^S’ NOTHING 
C MODIFIES: NOTHING 
C VERSION L 0 
C 

2 IMPLICIT INTEGERS CrHUJ-Z) 

C 

1 IMPLICIT LOGm*t CD 

r 

i * INTEGER*! CIBiSO), KIB<8>, DOSCS), T03‘;i23>, PIB(2>, P0S<2>, V0B(2> 

C 

5 OTTOWOWUF/Cia KIBj MB, TOB, PIB, POB, VOB 

c 

6 COHWOfl/SEN5lT/SIB<i0>, SDBQ0) 
r 

7 BMIH, PM3U1B) 

C 

0 COWaVIOPH/ OUHO), IGFVCF, IOFVCR, IOFVOT, IBDUNC8) 

c 

9 SAVE /ICFVECA /CCMBUF/, /PP.RftMS/, /SENBUr/ 

C 

19 EQUIVALENCE CSCB(4), FDRUH>, (St'B<5)i RDRUM) 

C 

C *•-■***♦•* 

c 

C VOBvl' = FRONT VALVE 
C V08<2> = E£PR VALVE 
C 1 ■ UP CONTROL 
C -1 = DOWN CONTROL 
C 

C OUTPUT FORMAT TO VALVE DRIVER 
C BIT O = FRONT UP 
C BIT i = FRONT DOWN 
C BIT 2 - SERF IP 
C BIT 3 = REAR DOWN 

C DRUMS PPE LIMITED TO MAX UP AND DMIH DOM 
C 

■il CBVTEsS 

C FRONT VALVE ENABLE TEST 
12 IFCICR/CF) THEN 

12 VTEST=0 

14 VTEST=VQ3Ci) 

C T EST IF VALVE TO 5E CONTROLLED 

15 IF' '/TEST. NE. 0> THEN 
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Pff-E 6 


crp^Tfll 


ORIGINAL PAGE IS 
OF POOR QUALITY 


u 

*-* 

» 

5 ^ 


22 

2 *t 

25 


V 

h 

25 

30 

31 


34 - 

35 

26 

3- 


rcrr I" v? C?. MW 

l?.'VT55T.Sai.' ThuH 

CWtrt 

^FCHAST.WIH) CEVTE=2 
5® IF 

end if 

i* ctjti icfVCF SLOCK 
‘ " £* IF 
C 

C c£r? VkLVE 3®BLs. 

IFtIOFVCR> THEM 
Y1E5W 

l 7TEST-WB<2) 

r TEST IF VfiLVE TO fcS C0HTF.0U3 
IFCVTEST. me. 80 THEM 

l rfCT if UP OR MW C0KTP.0L 

"ipWoii 6T. WIH) CBVTE=C2'?TE*8 

END IF 
END IF 

C BK> It'FVCR BLOCK 
S ID IF 

C TEST IF VPLVS OUTPUT SHaBLEO 
IF<ICFV0T> them 
cpll mmww 
BID IF 

*■ 

SETUSN 
BID 


MOC^JLE INFORMATION- 


awwagg .‘ S “S 

y»i«L£ WtH bifit - 00T4H w 
IWM* STACK SUE = 00B2H 2» 

LIMES REPO 


a fFOOPW SWRiS) w *«*» ljm-f 
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COMPILE? 


FACE 7 


15:5-1: «2 i COMPILATION Cf FROGFAH UNIT ITZW 

C€JEC T M GtULB PLACED IM :FL:VC2£*L0BJ 
CSFILP IfFWsD BY- FOR-T?© :Fi VC5E>>l r>:? 


ORIGINAL PAGE IS 
OF POOR QUALITY 


2 


4 

i 

7 

3 

3 

!0 


11 

12 

13 

14 


SUBROUTINE IT21NP 

c 

C IT2IHP PROHPTS THE USER AND UPDATES THE VALUE OF SOKE VARIABLES If! COMMON 
C 

C INPUTS: NONE 
C OUTPUTS: NONE 

C CALLS: OUTDSP, IMPCDU, INTROS* IHPHEX, OUTPUT 
C DESTROYS: NOTHING 

C MODIFIES- VARIABLES SELECTED BY USER 
C VERSION 1. 0 
C 

$INCLUDE( :Fi:YCSHEH. FOR) 

C 

C VCS SYSTEM HENDRY ALLOCATION 
C 

IMPLICIT INTE8ER*2<R-» 

INTEGER! CIO, KIB, DOB, TOB, PIB, FOB, VOB 
INTEGER*! PXFBUF, PKREUF- PKFSAY, FKRSAV 
INTEGER*! NNXIPXCS), TFLAGC5) 

INTEGER*! ERRSUFi&tt) 

C 

LOGICAL*! I0FYEC<29>, CMTYECUS), SINKS), SMSK(S>, DBGMC8) 

LOGICAL*. 0EFI0¥<29)» DEFCTV&S) 

LOGICAL*! NEXT, ADJUST, RESET, RUN, CRLBRT, PHRFfib AUTO, MANUAL 
C 

CHARACTER PARMES,MOSHE5tt0> 

CHARACTER*! DSFCGDCiO) 

CHARACTERS OOBC,DQ6N,OP5HES(10> 

CHARACTER* ERRHESC29), DBGHESC20), RUNME5C20) 


15 = DIHEHSIW C€F?RM(20), DEFPNT (8> 

= C 

= C COMMON BLOCK ALLOCATIONS 


la 


CQMNOf LCPANEl/MEXT , ADJUST, RESET, .AUTO, MANUAL- PHRFAL PM- CfiLBRT 


C 


C0MM0N/MESTB2/ FflRHES<29> 


i? = conuMEsmi/opsiEs 

~ c 

19 = COMMuN/MOSMES/HOSMES 

= c 

29 = C0WMN/SENFNT/SENPTR<16> 

= C 

51 = CCfS’SDfl/PIKBUF/’FKFBUFClO), FKRBUFCiS), PKFSAY, FKRSAV 

= r 

22 = COMKON/CLODC'TFLAG 

- r 

25 = ’ CffltflOff/OEBLiG/TEGK 

= C 
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0»TW| CC^HPILSR 


FfiGE 8 


24 * CCWHJf|/rS^ICC^.-48V.?CDa' , f0)*F['PDEl(i|fl9> 

* C ORIGINAL PAC£ il> 

25 » COMOtl,*' ICFVEC. ' ICFV'EC OF FOUrt QUALITY 

a C 

26 = cc-ms^arrvEcycH"^: 

- c 

r * ' COWN/CfSVEC ( 'OF<VECaO'» 

a c 

2$ = C0HM0M/0PP*SM/’ia!PNT<10>> HMXIFX 

= c 

2? = CGHHQN/SENHEM/L5TPfSC3Qee>i D5CNTLC16> 

= C 

28 « CWWH>0PSPNT/0PPHTS(8> 

= C 

21 = CttW'^WIO; DUMWCIS) 

* c 

32 = COKKOM/SfiVER/SflVE<20> 

* C 

33 » C 0 t*M 0 N/TfiPfiK 5 / PARjVKZO) 

= C 

74 = COff«MRF!LF/EffiBV 

S i* 

35 = ’ COHNOR'ERRFLG/ ERR0R<8> 

= C 

36 = CaWNrfXtWFrtJSm KIB<8'* NB<8\ T0B<128>, PIBf 2). PQB<2>- VCB<2> 

- i' 

27 * " COHUON/'SENELF/SIBCiS)* SPBC10) 

= C 

2? = COWiO»l/CmiTfie,'SENT«d0/ 2), RGCMTU0, 2> 

= C 

29 = COHHCN/fEsTfiB/'ERRHESj DBGJfES* RUHMES, DSFCOO 

= C 

40 = eOMlWDERLT/ DEFIOV» DEFPRH* DEFCTVj DEFPHT 

= c 

41 = CGWCM/OEFTfia' OEFRNG(i0, 2>, DEFCONU0. 2 ) 

= C 

42 = COWWM/u6FOPSrTEFOP6(18> 

= C 

43 = CQ[ , IMOH( ; C | EFM 0 S.'T€F^OS( 16 ) 

= C 

44 = JflVE rtPANEL'- ftVtSHF/* ,*ftVER/i /ERREUF/j /5ENPEL/ 

45 = SAVE /T€EUGA /IQFVECA /CNTVEC/, /OPSVEC^ 

46 = Sfi u E /OPPPRH/* /SEhfEM/j /GPSPNT/j /CLOCK/* ZHORKA .'t'ErTP.9/ 1 

4“ = SflVE /TWfiNSA ZERPFLBA /CONBUFA /SEN8UFA /CONTflBA AESffiBA flEfflLV 

48 a SAVE /SENPNTA /ME57B2A /HESTB3A /QEFOPSZ 

49 = SAVE /PEFHOS/ 

= C 

50 = EQUIVALENCE f WBvi>,&OBC>, (DOB(5).W3SN) 

51 = EQUIVALENCE CffSVEKl)* 0PN0DE>, (0PSVEC(2), HOOECT>» <0P£VEC<3>, fiNGMSK) 

52 = EQUIVALENCE <CP5VEC<4)» OPSffiW# (0PSVECl5)i RfiTECK> 

57 = EQUIVALENCE ('2PSVEC<6>iSTftTUS),(TIfETFl«t<4» 

a C 

54 INTESER*i BITS63> 

C 

55 CHfiRftCTEM COW 
C 

56 EQUIVALENCE ttHXIFti>lMKC4)) 
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'ORTSfiH COMPILES 


PAGE 3 


ORIGINAL PAGE IS 

57 EQUIVALENCE '‘TEMPI0< B!T5<1» OF POOR QUALITY 

:? EOUI«PLENCE « 0PPNFS(1># DfiTPHT> 

5? EQUIVALENCE tCMft DOB(i ) )> CDOBvS), MBS) 

C 

C 

60 CELL INTROS 
C 

C LOAD DOB WITH IfllTIftLIZE CODE DISPLAY RND PAUSE 
C 

61 D0BC=C'EGME5(i2) 

62 D0BH=0ea€S(5) 

C KY5IT2? 

S3 iO CALL QUTDSP 
C 

64 CALL INPCDU 

C IF RUN SWITCH ON WAIT FOR RUN NODE FROM OPERATOR 
C BEGIN BLOCK = RUN 

65 IF<RUN) THEN 

C TEST IF AUTOMATIC MODE SWITCH 

66 IFCRUTO) THEN 

67 OPM0DE=1 

6-8 GO TO 2000 

6? END IF 

C TEST IF MANUAL MODE 

70 IFWU THEN 

71 0PW»E«4 

72 GO TO 2900 

73 END IF 

7<i GO TO 10 

75 END IF 

C END BLOCK = RUN 
C 

C ELSE CALIBRATE SHITCH 
C IF PST SKIP GUT OF ROUTINE 

76 IF (RESET) GO TO 1000 
C 

C DATA INITIALIZATION BLOCK DO 
C BEGIN BLOCK = DATA 

77 IF(ADJl)ST' THEN 
C 

75 DO 100 M.HMXIPM 

C 

C LOAD DOB WITH FROHPTW 
C 

C LOAD MESSAGE ROM RUWES TABLE TO CONTROL FROM? TYPES 
C 

C PROMPTS 
C 7I/0HASK 
C 2CHTMASK 
C TOPSPARH 
C 7VR6FARN 
C DAT7ITZ? 

C tsenparh 
C THOSOPl 
C 

79 DOBC=RUNMESiI) 
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FORTRAN COMPILES 


PAGE 10 


S3 


•»ENsRUWES<:i3> 

61 

V 

!F(I. GE. 3> M&N*RWiME2<i4> 


C 


32 

32 


IF' I. E9. 5T TOI 
D0EC=DBGMES<'4> 

•31 


ceewflos<5) 

65 

C 

END IF 

36 


IFU. EQ. 6) THEN 

87 


DOeC=ESRHES(i) 

88 


D0BH=RUWES(i4> 

39 


CDUM=OSPCOD(?> 

93 

c 

END IF 

91 


IFUEH?) TIEN 

92 


D06C=C€SMES<9) 

93 


D0BH=RUNMES(2) 

94 

c 

END IF 


C DISPLAV PROMP 


C 


95 

C 

CALL OUTDSP 


c 

READ INPUT FROM C/D PANEL 


c 


?6 

c 

CALL INPCDU 


C test IF MODIFY THIS SET OF VARIABLES 
C BEGIN BLOCK a MODIFY 

9? 


IFCADJUST) THEN 


C MODIFY THIS SET 


C 


98 

C 

Ira. EQ. 5) GO TO 300 

99 


NMXIPT=NMXIPXCI> 

100 


DO 200 J=lr NMXIPT 

191 


TEMPIO=0 


C 

C LOAD DOB HITH PROMPT 
C 

C I/O FUG RESET 
102 IF(I.EQ.l) THEN 

102 IF<IOFVEC(J)) TEHPIO=TEHP 10+255 

10d DOBC=ERRMES(J> 

105 GO TO 150 

106 END IF 
C 

C CONTROL VECTOR RESET 
18? IF(I. E0L 2) THEN 

106 D0EC=ESRI€5(ICNPNTtJ» 

109 IF(CNTVEC<J» TENPIO=TENPIO+255 

110 GO TO 150 

111 END IF 
r 

C OPERATION VECTOR RESET 

112 !F(I. EO. 2) THEN 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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F*SWN COMPILES 


PAGE it 


u: 

DCBC=OP:MES''J> 



Hi 

TEmO=TEE°!C+CP5VE<M) 


PAGE »S 
quality 

115 

iis 

GO TO 150 

bid :? 

C 

C PAWETEP. ifESET 

ORIGINAL 

OF POOR 


ir 

IF(I EQ. 4> THEN 



119 

00BC=PRR>!E5(J) 



119 

TEHPIO=TEMPIO+PARAM<J> 



120 

GO TO ISO 



121 

BID IF 




C 

C INPUT TABLE RESET 


C BEGIN BLOCK = TABLE 


122 


IFC1. E9. S) TVEN 

123 


K=vJ-i)/2+i 

124 

C 

L=MODCJ“L 2) 

125 


IF<J. LE. 16) THEN 

125 


TEMPIO=SEtfffiB<K> L+i) 

127 


ELSE 

12S 


TEMPI0=RGC0AT(K-8,L+i) 

129 


E>fD IF 

ISO 


IFCJ. LE. 15) THBJ 

121 


DOBC=BWS<M> 

122 

c ? 

COl!P)=OSPCOC" 6) 

122 


IF(L Ea 1) CDW1=DSPC0D<2) 

12J 


BID IF 

123 

V 

1FU. GEL 17) TffiH 

125 


DOBC=ERR!€£(K-?) 


C NKXX 

127 


D08(1)=#4EH 


c xm 

129 


IF(L ES. i 1 * M6(1)=#5SH 

129 


EHO IF 

140 


GO TO 150 


C END 

BLOCK = TABLE 

iii 

C 

EHO IF 

142 


IFU EQ. 7) TTSI 

142 


DOBC»HOSNES(J) 

1 H 


TEMPI0=TE»1PI0+DSCNTL(J) 

145 


GO TO 150 

146 

C 

C 4# 

BIO IF 

147 

150 

DOBX s TEMPIO 

148 


CALL FORMAT(OOBX) 


C DISPLAY MESSAGE 
C 

14? CALL OUTDSP 

C 

130 CALL IHPCWJ 

C IF RST SKIP OUT Cf "HIS SET 
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FO?Tpii| 


151 


152 

153 


154 


135 

135 

157 

158 

159 
158 
151 


152 
163 

lijd. 

153 

156 

157 

158 


159 


178 


171 

172 

173 
1? * 

175 

176 

177 

178 


179 


(V+ipriro PACE 12 

ORIGINAL PAGE IS 
OF POOR QUALITY 

I P'‘PESE7> 00 TO 108 
C 

C IF ADJ r«M M • ElsE Sr::? TO NEST 
C EEGIH BLOCK = ADJUST 
IFffNVSn THEN 
CALL IHF^EIi 
c 

C BEGIN BLOCK * LOfiD 

IF(7SPI0. NE 0) THEM 

C LOW) DATA IN TEHPIO+1 INTO DESTINATION 
C 

C I/O FLAG SET IP 
C 

IFH. EQ. i) T®1 
lRDUMMYd). GEi) THEN 
!0FVEC(J)=. TRUE 
ELSE 

I0FVEC(J)=. FALSE 
DIO IF 
END IF 
C 

C CONTROL 'ECTOR SET UP 
C 

!F(I, EQ, 2) THEN 
IF(DLWa).GEl) THEN 
CHTYECO>=. TRUE 
ELSE 

CNTVEC(J)=. FALSE 
END IF 
END IF 
C 

C OPERATING CONTROL RfiRSNETER SET UP 
C 

IFfI EQ.3) OPSVEC(J+l)=DUNNV':i) 

c 

C PARAMETER SET UP 
C 

IFa.EQ.4) PARAN<J)=DWtty(D 
C 

C SENSOR TABLE RESET 
C 

IF(I. EQ 6) THEN 
C 

IFO.LEIS) THEN 
SEHTfiBOGL*l)=DL-WV(l> 

ELSE 

RGCWT\K-3,L+l)=Cm'(l) 

BID IF 

C BID SENSOR SET UP 
BID IF 
C 

IFa.EQ.7) DSCNTL\J)=OWlHV(i> 

C 

C END OF DATA LOAD SECTION 
BID IF 

C BID BLOCK = LOAD 
C 
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Mjppsn COfPJLS? 


130 

C 90 OF WOP POP SET 
90 IF 

ORIGINAL PAGE « 
OF POOR QUAUTT. 


C 910 SLCCK = ADJUST 
c 

151 

209 KHHWS 

i' 


132 

C BID 'Of sET OF ^PIPEliS 
90 IF 


18? 

C BO BLOCK = 1100 1 FV 
C 

GO TO 450 


184 

l 

C CLEPR CMOS PHD SET DEFAULTS 
230 WBN=PiWES(20) 


185 

D0B(4'k=#41H 


188 

CftLL OUTDSP 

£ 


15? 

DO 4*3 I=L 3000 


158 

L5Tp05(I)=-22000 


155 

400 CONTINUE 

r 


158 

L# 

C SET CMOS BUFFER POINTS? AT START <GPPNTS<1» 

wifnm 


151 

p - 

450 CONTINUE 

f 


192 

w 

100 CONTINUE 

r 


i?2 

L 

C BIO OF DATA INITIALIZATION B.OCK 
9 10 IF 



C BID BLOCK = CATA 
C 

r 

194 

L. 

C TEST FOP DEBUG OS CALIBRATE H0C-E5 
C 

MBC=RLW£S*‘B> 


195 

DGBN=PUNHEStl9' 


198 

C mSFAT 

CALL OUTDSP 


19“ 

CALL INFCDU 


198 

5 IF AOJ FRESSE' 

TFT ADJUST) TON 


199 

OPNODM 


280 

00 T0 1000 


201 

BID IF 


202 

C IF RESET PRESSED 

IF f RESET> GO TO 1099 


>02 

r tici-fc* 

C DEBUG 

D0BC=RUMES<7> 


J0i 

00BH4eGNE5C12> 


205 

C0W=0SPC0D(7> 


205 

C ^OEBSSVS 

CALL OUTDSP 




■ijFWi COMPILE? 


PROS 14 


20- CfiU. INFCW 

C IF *0J FFE55ED ’HEN 00 
20? !F‘ ,fi 0Jij5T*‘ THEN 

209 0PMCt€*2 

210 -30 TO 1M0 

ill CIO IF 

C ! e RESET SKIP OUT 
212 IFCFESED *30 TO 1000 

C 

212 1000 CONTINUE 

214 RETURN 
C 

C SYUCRONIZE CLOCK TIMER 

215 2000 CONTINUE 

216 CflLL 0UTPUT<»25H,t» 

217 CfiLL DUTPUT<i25H»tt7H> 

C 

218 RETURN 

215 END 


0fpI^ l PA6E « 
0F POOR QUALITY 


MODULE INFORMATION: 


CODE AREA SIZE = 062EH 15820 
VRPIPfLE AREA SIZE = 901EH 20D 
MAXIMUM STACK SIZE = SOOftH 10D 
412 LINES READ 

0 F»0GPAM E?R0R<5> IN PfiKMl UNIT ITZ1NP 
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C0HP1LEH 


PftOH 15 


ISI5-1! FOP T FRH* V2.1 COMPILhIK-M OF PMGRSH UNIT PSSTPT 
03JEC T 'ms PLACED IN :Fi:WSE»L0W 
COMPILE? INVOKED BY' FflRTW :F1:VC£EXML PCP 


ORIGINAL PAGE IS 
OF POOR QUALITY 


1 SUBROUTINE PESTP.T 
C 

C RS5TRT CLEARS APPROPRIATE DAT TO fiUGW HARM START OF VCS 
C 

C INPUTS: NONE 
C OUTPUTS: NONE 
C CPUS 1 NOTHING 

C DESTROVS- SENFNT&ERRBUF/ OPPOTS; CLOCK* PIKBUFSf SEHDELS 
C MODIFIES: 0PPNTS<1)» STATUS 
C VERSION 1 6 
C 

2 itMCLliOE': : FI * VCSHEM. FOR) 

= C 

■ C VCS SYSTEM MEMORY ALLOCATION 
= C 

3 = IMPLICIT INTEKR*2<A-2> 

4 = INTEGER*! CIB,KIB,D0B,TDB,PIB,FO3,YCB 

5 = INTEGER*! FKrB^JF* PKPEUF- PKFSAY.PKESftY 

0 = INTEGER*! NHKIFX€6>« TFLSG<€> 

7 = INTEGER*! ERR8UFC9/ 

= C 

? = LOGICfiL*! IOFVEC<20>< CNTYEC(iS)* SINT(8)» SHSK.(9 )j DBGMC8) 

3 = LOGICAL*! DEFlOVC20>i DEFCTV(16) 

10 = LOGICAL*! NEXT. ADJUST, RESET, RUN, CfiLBRL PWRFfiL AUTO, MANUAL 

= C 

11 = CHRRRCTER*4 Pf»i1ES,WSME5<i0> 

12 = CHARACTER*! DSPCODO0) 

13 * CHARACTER MBC,!mOPSHE5ae> 

14 = CHARACTEP*4 ERRKESC20J, CSGHES<20>, HMES<20> 

= C 

15 = DIMENSION D£FPRH(20MEF?NT<3> 

= C 

= C COMMON SLOCK ALLOCATIONS 
= C 

16 = COMMOfl/CPPNEL/NEXT; ADJUST, RESET/ AUTO, MANUAL PHRFfiL RUN, CfLSPT 

= C 

i? = C0M0N/HE5TE2/ PRPJSSC20) 

= C 

18 = COKMON/TESTB3/OPSHE5 

a C 

18 = COMMON/tlOSfES/HOSMES 

= c 

20 = COMMOH^SENPNT/'SENPTRae) 

s C 

21 = COWON/PIKBUF.-TKFBUFCiO), PKREUFtiO), PKFSRV. PWEfcY 

= C 

22 = CQWOM/CLOCK/TFLfiS 

= C 

23 = COPOWDESUGABai 

= C 
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24 = 

= C 

25 * 



5 

27 a 

= C 

29 * 

= C 
29 a 
S C 
39 = 

* C 

31 = 

= C 

32 = 

= C 

32 = 

s C 

34 s 

s C 

35 = 

* C 

2*5 - 

s Q 

V = 

= c 

33 = 

= C 
39 = 

= C 

4fi = 

= c 

41 - 

= C 

42 = 

= C 

43 = 

= C 

44 = 

45 = 

4* ~ 

47 = 

48 = 

49 = 

= C 
59 = 

51 = 

52 = 

52 = 

= C 
C 
54 


W»B:tL'lCttL(46)- PCDEL(t0), FORDEL(40Q> 
COMMON/ 1 OFVECZ !C ;C VEC 


ORIGINAL PAGE IS 
OF POOR QUALITY 


CCJ4MCN/C J JTVEC/CNTVEC 


COMMOfO'QF5VEC/OPSVEC(10) 

COMHT H/OPPPRH/ICIf MT (10) » HKfiX(16>, IlKXIPX 
COMMON/SEllMEH/LSTPflS(3000)) DSCHTL<16> 

COI1MOH/OPcpHTWNT5(8) 

COHIWViORK/TtJIPlO, «JMW<i9) 

COI1 M ON>SAVB/<AVE<20) 

COMMON^RPMS/ PBfil1(20) 

CCKMCWEPPBUF/EFRBUF 
COWWERFLGZ ERORO) 

am«fJ/COt®jr. J CIBf30), KIB(S), 008(8), 706023), PIB<2>, P0B^2>- V08C2) 

COMMOM/9Oa'F/SIB(10), £08(19) 

COTI/CONTffl/£tHT?£(10, 2), RGCDflTOQ, 2) 

•^tlMC^/HE5Tro/ERHE- 06GME5, RUNHESj DSFCGD 

COHMON/teFfiLT/ iEFIOY, DEFPRH, C-EFCTV, KENT 

COMWCtFABZ I€FRH6Ci0, 2), DEFCON<10, 2) 

CONH9H/DEFQP5ZDEF0P5 (10) 

COMOH'DEFH0S/DEF«OS(15) 

SAVE ZCPANELA ZPIKBUFA /SAVE/, ZEPBJFZ, ZSENDEL 
SAYE /DEBUG/, /10FVEC/* ZCMTVECA /OPSVEC/ 

SAVE ZOPPARHA ZSEHHEMZ, /DPSPNTA /CLOCK/, ZHORKA /DEFTfiB/ 

SAVE /PAPAMSA /ERRFLGA /COHBUFA /SENBUFA /CONTRBA /HESTA8A /DEALT/ 
SAVE /5ENFHTA /ME57B2A /HE57B3A ZOEFOPSZ 
SAVE /DEMOS/ 

EQUIVALENCE (008(1), DOBC), (008(5), COBH) 

EQUIVALENCE (OPSVEC(1),OPMOOE), (0PSVEC(2) J M00ECT)» <0PSVEC<3>< RNGMSK) 
EQUIVALENCE <GFSVEC(4), OPSENR), (0PSY£C(5), RflTECK) 

EQUIVALENCE (0FSVEC(6), STATUS), (TIME, TFLSG(4» 

LOGICAL*! I0FCA5 


55 


C 


DIMENSION SENDEL(5G9) 



C.-4STPB*J compile? 


PAGE 1? 


55 EQUIVALENCE ‘I0FECU5), ICFC»£> 

r equivalence <sehdslci>»lcdelci» 

c 

c 


*•? 


STATUS*? 


C CLEAR DELAV POINTERS 

59 


DO 108 1*116 

5? 


SENPTRCIM 

Si 

100 

CONTINUE 


C CLEAR ERROR BUFFERS 

52 


DO 200 1=18 

53 


DO 200 J=liO 

51 


ERRBUF<I,J>=8 

55 

200 

CONTINUE 


C 



C CLEAR OPERATION POINTERS 

55 


DO 300 1=18 

67 


OPPNTS(I)=OEFPNT(I> 

53 

300 

CONTINUE 

t? 

C 

OPPNTSUM 


C CLEAR CLOCK ARRfiV 

7 0 


DO 40O 1=16 

"1 


TFLfiG<I>=8 

72 

400 

CONTINUE 


C 



C CLEAR PICK DATA 

72 


DO 500 1=110 

71 


PKF2UF(D=0 

75 


PKRBUFCD=3 

76 

5O0 

CONTINUE 


C 



C CLEAR DELAV LINES 

77 


DO 660 1=1500 

73 


SENDEKI)=0 

79 

£00 

CONTIN*JE 


C 

j 

30 


'iFUOFCAS) CALL TAPI' 


C IF CASSETTE OH WRITE TAPE HEADER 

c 

I C CMOS POINTER RESET, LSTPHT 

81 / DSCNTU6>=0 

82 \ RETURN 

33 END 


MODULE INFORMATION: 

CODE AREA SIZE = Oi2PH 2140 
VARIABLE AREA 512 = S014H -CD 
MAXIMUM STACK SIZE = 3yf£H 2D 
155 LIMES READ 



4X0 



CQRTWN COMPILE? 


ORIGINAL PAGE IS 
OF POOR QUALITY 


PfiGE t 


0 WOGMH EPPORfS) IH PROGRAM OMIT RESTRT 


0 Tim fPOQFfSI E 5 P0R>:S) 
EH) OF FQPTWN COMPILATION 
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jmprjjatj COMPILER 


PAGE i 


!S!S-i! FORiMN-sO «. 1 COMPILATION OF PROGRAM UNIT CfiTFFD ORIGINAL 

OSTECT *C<DULE PLACED IN ri.VCSCHT OBJ OF POOR Q' A 

COMPILER -WAKED SV- F0RTS0 FI'/CfCMT FOR 


1 SUBROUTINE CHTPFI' 

C 

C CNTRFO IS THE FRONT DRUM CONTROL ALGORITHM 

C THIS VERSION INCLUDES LCF, PICKS* NBS-CID* DEADER* BIAS 

C 

C INPUTS: SENSOR DATA* CONTROL INFORMATION 
C OUTPUTS : FRONT DRUM CONTROL SIGNAL 
C CALLS NOTHING 
C DESTRQVS' NOTHING 
C MODIFIES CONTROL OUTPUT FOR FRONT 
C VERSION i 0 s 

r 

2 IMPLICIT INTEGERS (A-E> 

C 

3 INTEGER*! CIBCS0>,KIB<8),D0B<S)»T(JBa28) f FIB(2>. P0eC2>.WB(2) 

4 INTEGER*! PKFSRV* PKFBUF, PKRSAV* FKRBUF 
C 

5 LOGICAL*! IOFVCF 

* LOGICAL*! CNMCID, CNhLCF* CHHPKF* CNHPKR* CNIPCF* CDUH' ll).- IOFVEC<20> 

C 

7 COtfWOPSPNT/OPPNTSCB) 

C 

3 COMHOH/CQKBUF/ CIB* KIB* DOB; T08# P1B# OB# VOB 

C 

? COMMON/SAVER/LCX# FCNTL FCDELT, TEHP0R<!7> 

C 

19 COMMON/SENMEN/ LSTPRS(3000>< DSCNTL<!G> 

C 

11 COMHOH/SENFNT.'TDRPNTi FDRCMT# LCPNL LCCNT* PCPNT* PCCNT, DUMMV(iO) 

C 

12 COMMOH/PI KBUF/PKFBUFC1G >* PIKBUFCiO)* PKFSHV- PKRSAV 
C 

13 COMMOH/'SENBUF/SIBCiO)# SDBCIO) 

C 

!4 COHMON-TARANS/mX, UHJN# ERRLHT* CDSTEP, PIKAVE# FKSTEP* DED5DF , 

1 DEDEDR# ARMING, ORHRAD# LCPOS, PCPOS, CIDPOS. FTRLOC, DFDFCT, 

2 SNDSTP. D3I ASF# OBIASR, SRKVAL* TRGFCT 
C 

15 COMMOfl/CNTVEC/CWICID. CNMLCF# CNHPKF* CNHPKR# CNMPCF* CDIIM 

C 

it CONMON/OPSVEC,' 1 OPMODE NODECT* RNGMSK# OPSENR, RATECK* STAT, 

1 FDVGN* FOCAL# RDVGN# RDCAL 
C 

i 7 C0MH0N/SENDELACDELC40)* PCDEL(EO)# FDRDEU400) 

C 

13 COMNON/IOFVEC/IOFVEC 

C 

IS COMMON ERRFLG/ERRCRC8) 

C 

SO SAVE .SENMEH.', > IOF'*’EC/ 

21 SAVE .tPSFNT'* .•'SENDEL', . SAVER/, .'PIKBOF/, /SEHFHT/ 
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P*TPTP0H COMPILES 


PAGE 


ORIGINAL PAGE IS 

22 SAVE ••'CUTVEC/. /OPSVEC/j /SEMEUF A /PRRAMSA /CONBUF/ 0P P00R QUALITY 

c 

2: EQUIVALENCE <£»<!>/ DFD'*i (ICFVECC10)/ I0FYCF) 

2* EQUIVALENCE <Sra<6>»CID>» <SDB<3). LC). <SDB<4), FORUM). <SDSu>.Ft.F> 

25 EQUIVALENCE (DSCNTL(1>* fflXSLT), VDSCNTL(2>, STRTPT) 

26 EQUIVALENCE iDSCNTU 3>. STEPS2), <KCNTL<4>> NEGMftV 1 

27 EQUIVALENCE <DSCHTL<5>« P09WO, (DSCNTL(«j LSTPHTJ 

29 EQUIVALENCE (DSCHTU?), ISNIND). tDSCHIL<0)i ISNPOS) 

29 EQUIVALENCE (DSCNTU9). CIWWOi (DSCNTLUO). CM) 

C 

C 

C SENSOR SELECT SECTION 
C 

C TEST IF LCF DATA USED 
C BEGIN BLOCK * SENSOR 

20 IF«NODECT. LE i>. OR. (MODECT. E£L 3)) THEN 

C 

31 LCX=<LC*<20“TRGFCT*«lfl*FDRUN)i / FDCAL) ) )/20 
C 

C BEGIN BLOCK = DELAY 

32 IFiOPSBiR Ed 1) THEN 
C 

C OPSENR = i FOR DELATED SENSORS 
C 

C DELAYED LCF ROUTINE 

23 ID CONTINUE 
C 

C IF DFD > OLD DFU + 1 OR MORE STEPS 

34 IFv (CFD-LCCNT»DFDFCT). GT. DFDFCT) THEN 

35 LCDEUMODaCFNL LCP0S)+l)=LCX+C^FDRl^FDVGN)/10)*ARt?-NC* 

36 LCPNT*LCPNT+i 

37 LCCHT *LCCMT +1 

38 GO TO 13 

39 END IF 
C 

C TAKE LC FROM DELAYED BUFFER 

40 LCX=LCPEL(HOO(LCPNTj LCPOS)+i) 

c 

C END SENSOR IF BLOCK 

41 BID IF 

C BID BLOCK = DELAY 
C 

C ********* 

c 

C ELSE NO LCF - RECORDED DATA NODE 

42 ELSE 
C 

43 IF((N0OECT. Eft. 2). OR. (NOOECT. Eft 4)) THEN 

C LC DATA FROM CMOS BUFFER 

44 INDEX=OFD+STRTPT 

45 LCX=LSTPAS( INDEX) 

C IF NOT INITIALISED 

46 IF(LCX. Eft (-22000) ) THEN 

47 LCX*8 

C ERROR 6 = NO LAST PASS DATA GOOD 

48 ERRORS)*! 
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C0 p TPPN COMPILER 


PAGE 3 


4 ? 


50 

51 


52 


53 

54 

55 
55 

57 

58 


=IQ 

SO 


61 

62 

63 

64 

65 

66 

67 

68 
6 ? 


70 


71 

72 


tS 


74 


c ORIGINAL PAGE IS 

C EHO SCORED BLOCK OF POOR QUALITY 

END IF 
r 

BID IF 

C BID BLOCK = 6 BE 0 R 

r 


0 

c 

C BUFFER PONT POSITION FOR SLAVE OF REAR (NODE 3) 

20 CONTINUE 

C IF DFD >= OLMfD + i Oft MORE STEPS 

IF((CFD-FDRCHT*tFDFCT\ GT. DFDFCT) THEN 
FDRDEL(MOO(FDRPHT/ FTRLOC ) +1) =FDftUM+fiRMLNG 
FDRPNTsFDRPNT+i 
FDRCNT«FDRCNT+i 
00 TO 20 
BID IF 
C 

C ST0PE Cl D/PC IN CMOS 
C 

lNDBt=PFD+STRTPT-INSPOS 

IF( (INDEX. LE. POSnaX). m. (INDEX GE. NEGMflX)) THEM 
C OK IN RANGE 

IFf INDEX NE LSTPNT) THEN 
CO 58 I*LSTFNT+L INDEX 
LSTPflS<I>=SDB(ISNINO> 

50 CONTINUE 
LSTPNT=»OEX 
BID IF 
ELSE 

ERROR (b)-10 
END IF 
C 

C BID SENSOR SEGFNT 
C 


c 

c CONTROL PLG0RI1HN SECTION 
C 

C IF AUTO MODE CO CONTROL 
C BEGIN BLOCK = CONTROL 
IFCOPMQOE. ESL 1> THEN 
C 


FCNTL*0 

V 0 B( 1)=0 

c 

C ”’ 

TTTT^'TrTT 


c 

C TEST IF PICK CONTROL 
C BEGIN BLOCK = PICKS 
IF(CNHPKF) THEM 
C 

C TEST IF AVERAGE PICKS 

IF(PlKflVE GT. 0) THEN 
C STORE PICK DATA FOR AVERAGING 
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PfflWH CIPHER 


Ftt£ 4 


*0 

91 


82 

92 

84 


95 

89 

8 ? 

89 


99 

90 

91 


93 

94 


95 

99 


97 


98 


99 

100 


101 


WIQD' 0FFNT5'!5>< PIKfWE) 

KFBKW«tWa 

J*3 

C WEWGE & ICK SWINGS 
DO 109 1=1 PIKPVE 

w+pwawi) 

100 CONTINUE 
J=J/PIKftVE 
C 

C ELSE NO WEKffilNu ON PICK DflTfi 

else 

J=PKF«10 
END IF 
C 

C TEST IF OVER OR UNDER THRESHOLDS FOR CHRNGE5 
IFU GE. 7) THEN 
M 

60 TO 20O 
END IF 
C 

C TEST IF COBL 

IF(J. LE 3) THEN 
J=-i 

60 TO 200 
END IF 
C 

C ELSE KEEP OLD VALUE 
J=PKF5ftV 
C 

200 ?KFSflV*J 
C 

C SHIR LC Die TO PICK? 

LCX=LCX+PKSTEP*J 

C 

END IF 

C END BLOCK = PICKS 
C 

c tw * ^*** 
c 

C 9El BLOCK = CID 
IF(CNMCID) THEN 
C 

C DO CID CONTROL ftS PICKS ARE DONE 
C 

C IF CID . GT. SET POINT MOVE DRUM MNM 
IFCCID, GT. CIDfflK) LCX=LCX-CDSTEP 
C 

C IF CID .IT. MIN SET POINT MOVE DRUM UP 
IFCCID. LT. CIDNIN) LCX=LCX+CDSTEP 
C 

END IF 

C END BLOCK = CID 
C 

l. ^ 

c 

C BEGIN BLOCK = LCF 
IFCCWICP THEN 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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PRISE 5 


"OR"n?*N 

102 

193 

104 

195 

196 

197 

108 

10 ? 

110 

111 

112 

113 

114 

115 

116 

117 

118 

113 

129 

121 

122 

122 

124 


COMPILER 


C TEST IF NULLING CONTROL 

IF- MODECT. E-l V FCHTbtCX 


ORIGINAL PAGE IS 
OF POOR QUALITY 


c 

8 TEST IF HOFt'A PERL THE CONTROL 

IFCCKODECT. ECL 1). OR. HIODECT, EG. 3)) FCNTL=LCX-ftRUN*RPHUlG 


ELSE 

C NO LCF OftTfl AVAILABLE DIRECTLY 
C 

C TEST IF STORED DATA (IN CKOS) 

IFCOMODECT. EG. 4). OR. CHODECT. EQ. 2)) FCSTL=LCX-FEfiW*PfilNG 
C 

C END LCF BLOCK 
END IF 
C 

C 

C CONTROL SIGHRL GENERATION SECTION 

C TEST IF OUTPUT ENABLED 
C BEGIN BLOCK = OUTPUT 
IF<IOFVCF'» THEN 
C 

C OUTPUT SlfiS AND DEPP BAND 
FCPELT=CFCNTL-08IibT) 

C 

C TEST IF DEPP BAND ON 
IFCDEDBDF. 6T. 9> ••€?•* 

IFCIABSCFCDELTX LT, P6DEPF) THEN 
C IF CONTROL LT, DERD BfiND SET TO 9 
FCNTL=0 
GO TO 500 
END IF 
END IF 
C 

r' 

C GENERATE VALVE CONTROL 
IFCFCDELT. GT. 0) THEN 
VOB(i)»i 

C DRUM LON , GO UP 
ELSE 

V0B<1)=-1 

C DRUM HIGH , GO DORN 
END IF 
C 

589 CONTINUE 
C 

END IF 

C END BLOCK = OUTPUT 
C 

END IF 

C END BLOCK = CONTROL 
C 

RETURN 

END 
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FOPTPfH COMPILER 


PROS 6 


•TOULE 1NF0PWICH- 

CODE PPSR SIZE = 02OFH 9WO 
WHP8LE «S3 513 « 0O0PH iOD 
HPyiHUN 5TPCK SIZE * OO04H 40 
27? LIMES °EPD 

0 PFOGRPM ERROR'S) IN PROGRftfl WIT CNTRFD 


ORIGINAL PARS tTS 
Q¥ PCJSI QUALITY 
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FORTRAN COMPILER PR&S 7 

ORIGINAL PAGE IS 

IS! 2-1! POPWH-69 V2. 1 COMPILATION OF PROGRAM 17111 CHTRRO 0F POOR QUALITY 

»!KT *00115 PLACED III :Fi:VCSCMT.C8J 
COMPILER IHVO® BY’ F0RT59 :Fi:¥CSCHT. FOR 


1 SUBRGUTIIE CNTRPD 

r 

C CMTRRD COMPUTES THE REAR DRUM CONTROL SIGNAL ALGORITHM IS 
C CONTROLLED BY INPUTS RM> MODE VECTOR 
C 

C INPUTS: SENSOR DATA* CONTROL INFORMATION 
C OUTPUTS: REAR DRUM CONTROL SIGNAL 
C CALLS: NOTHING 
C OESTRUM: NOTHING 
C MODIFIES: CONTROL OUTPUT FOR REAR 
C VERSION 10 
C 

2 IMPLICIT INTEGERS <fH) 

C 

3 INTEGERS CIB(80), KIB<8), 00B(8), T0B<12S>« PI8<2), P03(2>, V0E<2) 

C 

4 LOGICAL*! IOFYEC(20), IOFVCP. 

5 LOG!Ca*i CHMCID/ CNHLCF, CNMPKF, CMHPffi, CHMPCF, CHNVCF, CNHVCR, CDLWS) 

r 

6 COMMOH/COM£4JF^C IB, KIS> DOB/ JOB/ PIB/ POB, VOB 
C 

7 CGHNQH/SRVER/PCX* RCNTL RCOELT/ TEMPOS (17) 

C 

3 CONMON/SENHEM/ L5TPfiS(3009),DSCNTL(ib) 

C 

? COMHtWSENPNT/FORPNT, FDRCNT/ LCPNT/ LCCHT/ PCPNT, PCCNT, PDUM(10) 

C 

10 COI-3WSEN£iJF.''SID(i0)/5C 1 B(i0) 

C 

11 COMMONTPARAMS/DMAX/ DMIN/ ERRUTT/ SEftTL PIKflVL PK5TEP, 

1 DEDBDF/DE&BDR/ARMLNG/ 

2 DRMRAD, LCPCS/ PCPOS, CIOPOS; FTRLOC/ DFDFCT, SNDSTP/ 

3 OB I ASF/ D6IASR, SRKVAL TRGFCT 
C 

12 CGMMIWCNTYEC/CNHCID, CNHLCF, OMPKFi CNMPKR, CNHPCF, CNHVCF/ CHHVCR, ODUM 
C 

13 COMMCN/OPSVEC^OPMODE, NOOECT, PiEMSK, OPSEfiR, RftTECk STAT, 

1 FDVGN/ FOCAL* ROVfJL ROCAL 

C 

14 COMMON/SaBELACDEL(40)j PCOEL(60), FDRD£L(480> 

C 

15 COMHOM^ IOFVEC/IOFVEC 
C 

lb SAVE /OPSFNT/j /IGFYEC/ 

17 SAVE /SEMDEL/j* /SAVER// /'SEMEN/* /PIKEUF/', /SENPNTX 

18 SAVE /CMTVEC/, /QP5YEC/, /SENBUf /. /PRAAMS/, /COMBLF/ 

C 

13 EQUIVALENCE <SDB<1), CfO), UOFVECCH)/ IOFYCR) 

20 EQUIVALENCE (508(2), PC), (508(8), PKR), (S0B(5), RDRUM) 

C 
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‘OPTF^M COMPILER 


PfiGE 8 


^4 

22 


22 

24 


25 

26 
27 
23 

9Q 

33 


21 


32 


34 

35 


C 

L SENSOR SELECT SECTION 
r 

C TEST IF C CF Mffi USED 
C BEGIN BLOCK = SENSOR 
IFC»mTLEl> THEN 


""S*. p Ase |s 

° F POOR QUALITY 


c 

PCX»'PC*' 29-TRGFCT* <i0*RDRUM) /PKfiL) ) > /'29 

C 

C TEST IP DELVED SENSOR 
C 

C BEGIN BLOCK « DELAY 

IF(OPSENHE'll) THEN 
C 

C PCF DELAY ROUTINE 
18 CONTINUE 

C IF OFD >= OLD OFD + L MORE STEPS 

IF >' <DFO-?CCNT H-P'"'' vT). GT. DFDFCT) THEN 
PCDELOMODCPCPITf Pa»OS>+l>»PCX+ C <RDROM^;DVGN>/10)*fiRfNJK 
PCPNT=PCPNM 
PCCNWSCNT+i 
GO TO 19 
END IF 

C TAKE PC DATA FRQK DELAY ELUTES 
PCX=PCDELCMOO(PCPNT, PCPOS)+l> 

C 

C END BLOCK = DELAY 
END IF 


C 

C Ay t + w -m* 

C 

C ELSE NO PCF - RECORDED DATA MODE 
ELSE 
C 

C TEST IF STORED DATA 

C !F«MOCECT. EQ. 2>. OR. CHCOECT. EQ. 4» FCX=P€ 

C 

C TEST IF SLAYS) DRUM 

IFCMODECT EO. 3> PCX=fDK€L(MflO(FDRPNTi FTRLOO+l) 
C 

C BID BLOCK = SENSOR 
END IF 


C 

C END SENSOR SEGMENT 
C 


C 

C CONTROL ALGORITHM SECTION 
C 

C If AUTO DO CONTROL 


C BEGIN BLOCK = CONTROL 
26 IFCOPMODE EQ. 1) THEN 

C 

37 RCNTL=9 

33 Y08f2>=9 


C 
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COMPILE? 


PAGE 


jfl 

41 

42 


42 

44 

45 


46 


47 


43 

43 

59 

51 

52 
52 


54 

55 

56 


zt 

53 

53 


C TEST IF REAR ?CF CC'MTROU 
C BEGIN SLOCK = PCF 
IFCCWffCF' TriDI 
C 

C TEST IF NULLING CONTROL 

IFCNODECT. Ed 9> RCNTWCX 


ORIGINAL PAGE IS 
OF POOR QUALITY 


C 

C TEST IF NORMAL PERL TIME CONTROL 

IF«N00ECT. Ed 1). OR. (NOOECT. Ed 3)) RCHTL=PCX-ftDPJM»PRHLNG 


C 

c *♦*♦♦* *<*> 
c 

ELSE 

C NO PCF DATA AVAILABLE 
C 

C TEST IF SLAVED DRUM CONTROL 

IF(H0DECT. Ed 3) RCNTL=PCX-RDRWHfi?J!UIQ 
C 

C TEST IF STORED DATA (CMOS) 

C REAR IS SAME AS L 3 FOR NON 

IFC(M0D£CT. Ed 4). OR. (HODECT. Ed 2)) RCNTL*PCX-»RUIW?f»tH8 


C 

C END SLOCK = PCF 
ETfO IF 


C 


c ^m**t*********-fcr****»****u^4*it*^**M^ ******* 


C 

C CONTROL SIGNAL GENERATION SECTION 
C 

C TEST IF OUTPUT ENA5LED FOR VALVE 
C BEGIN SLOCK = OUTPUT 
IFGOFVCR) THEN 
C 

C OUTPUT BIAS AND C€AD BAND 
RC-DELT=(RCNTLn«IfiSR) 

C 

C DEAD EPHD ON CONTROL OUTFUT 
IFTDEDBDR. OT. 0) THEN 
IF(IABS(RCDELT). LT. DEDBCfi) THEN 
RCNTL=0 
GO TO 500 
END IF 


END IF 
C 


C ********** 

C 

C GENERATE VALVE CONTROL 
IF(RCDELT. GT. 0) THEN 
C ORUH UM i GO UP 
V0B(2)=1 
ELSE 

C ORUH HIGH , GO DOtiN 
V0B(2)=-1 
END IF 
C 

500 CONTINUE 
C END SIGNAL SLOCK 
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FORTRfiH COTILER 


PftGE 10 


C END SLOCK * ffljTFUT 
ft BID IF 

C 

C BID CONTROL BLOCK 
C BIO BLOCK = CONTROL 


Si 


BID IF 

S3 


RETURN 

63 


END 


ORIGINAL PAC2 
Of POOR QUALITY 


NODULE INFGRHRTIGN: 


CODE ffiEft SIZE = 01F3H 49S0 
YfiRISBLE ffiEfl SIZE = 0000H 0D 
HRXINUH STfiCK SIZE = 0004H 40 
174 LUES REfiO 

0 PROGRAM ERRORS IN PROQRflM UNIT CNTRRD 
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FOPFAN .tomiSS 


PAGE ii 


ISIS-tl FOWRAN-M V2. 1 COMPILATION OF PftOGfflM UNIT SENRLH 
CeJECT « PUKED 1*1 :Fi'VCSCNT. OBJ 
COMPILER INVOKED BV: FflRTflO ;Fi:VCSCHT. FOR 


ORIGINAL PAGE IS 
OF POOR QUALITY 


1 SUBROUTINE «SRLH 
C 

C SENRLM IS THE SENSOR INPUT RATE LIMIT ERROR DETECTOR ROUTINE 
C 

C INPUTS: SDB 
C OUTPUTS: ERROR STATUS 
C CALLS: NOTHING 
C DESTROYS : NOTHING 
C MODIFIES: SIB/ SDB. ERROR FLAG 
C VERSION: 1 0 
C 

2 IMPLICIT INTEGER*2 Cft-ZJ 
C 

3 COMMOtl/SENBUF/S IB < 19) * SDB<16) 

C 

4 C0MM0M/0P5VEC/0PH0DE MODECL RNGHSIG DPSENfc RflTEBC STATUS. GQUK4) 
C 

. 5 CGHHDH/ERRFLG/ ERROR (8) 

C 

6 COKHOfl/PfiRfiMS/POUMClB). SRKVAL OUMO 
C 

7 SAVE /PRAAMS/ 

8 SAVE /OPSVEC/. /ERRFIG/. /SENEUF/ 

C 

9 EQUIVALENCE (SDBG). LCF). (SDBC2), PCF) 

C 

0*i^1c**^1«**cW:***=f**eM=W******Mao^ 

c 

C IF COLD START INITIALIZE OLD VALUES 
C 

10 IFCSTRTUS. EEL 0) THEN 

11 LCOUMXF 

12 PCOLD=PCF 

i2 $TATU5=5TA7U5+i 

ii BID IF 

C 

C IF IN AUTOMATIC DO ERROR TEST 
C 


15 


IFCOPHOCC. EQ. 1) THEN 


C TEST IF RATE TOO LARGE ON INPUTS 
C ERROR 4 = INPUT SENSOR RATE OF CHANGE TOO HIGH 

ib 

C 

IFdRBS(LCF-LCQLD). GE. SRKVAL) &SOMX 

17 

IF(IABS(PCF-PCOLD). GE. SRKVAL) ERROR(4)=£RRCft(4)+10 

18 


END IF 

13 

*4 

IF(EPR0R-:4) NE. 0) RETURN 


C USE 

OLD VALUES IF ERROR 

20 


PCOU)=PCF 
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FORTRAN COMPILER 


Plies 12 


21 

22 

22 


LCOLM.CF 

PEWI 

BID 



'mi£ IMF'WIOH: 

CODE AREA SI2E * W7FH 127D 
VARIABLE APEA SIZE * 0M4H 40 
MfiXIWJM STACK SIZE * O302H 2D 
55 LUES READ 

3 PROGRAM ERRORCS) IN PROGRAM WIT SENRLM 

0 TOTAL PROGRAM ERRORCS) 

BID OF FORTRAN COMPILATION 
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eCRTOI COMPILER 

ORIGINAL PAGE IS 

Ii'S- 1 1 V2. 1 COMPILATION OF PROGRAM UfllT OBUGCI POOR QUALITY 

OBJECT MODULE PLACED 111 rFi'VCSt'BG. OBJ 
COMPILER INVOKED BV' FGRT80 :F1:VC£MH FOR 


1 SUBROUTINE DcUQCI 
C 

C DBUCCI READS DEBUG CONTROL INFORMATION FROM CONIFOLWSPLW PP>IEL 
C 

C INPUTS: DEBUG COMTRO VICTOR 
C OUTPUTS: NONE 
C CALLS: 1NPCDU* OUTDSP# PRU5E 
C DESTROYS: NOTHING 
C MODIFIES: DEBUG CONTROL VECTOR 
0 VERSION 1 8 
C 

2 IMPLICIT INTEGER*’ 

C 

3 CHARACTER*! OSPCQM10) 

4 CHflfflCTEfcM DOeCiDOBN 

5 CHARACTERS ERRES<20)i06GHE5<20)iRMNES(2S) 

C 

S INTEGER*! CiTS(S) 

7 INTEGER*! CIBC88), KIB<3>, D0B<8>, 108(128), PIB(2>, PCB(2>, V0B(2) 
C 

8 LOGICfiL*i NEXT, ADJUST, RESET, AUTO, MANUAL PHRFAL RUN, CALBP.T 
C 

9 CQMMON/CfflNEL/HEXT , ADJUST, RESET, AUTO, MANUAL PHRFfiL RUN, CALERT 

C 

18 C0MH0H/0Pim4fiUM(i8), NMXDBG, HDUJK10) 

C 

11 OOHHON/COHEUF/ CIB, KIB, DOS, TQB, PIB, FOB, VOB 
C 

12 CGMHON/MESTflB/ ERRMES, DBGMES, RUHMES, DSPCOO 
C 

13 COHHON/WORK/ TEMP 10, CW (19) 

C 

14 SfiVE /OQHBUFA /KESTA9/, mJ> /CPfil07, /OPPfiRM/‘ 

C 

15 EQUIVALENCE (008(1), DOBC), <D0B(5), NON) 

C 

16 EQUIVALENCE (TEMPIO, BITS(1» 

C 

C 

C LOAD MB WITH PROMPT 
C 

C *DEEUG! 

17 DOBC=RUNHES<?) 

18 D0SN=RUNMES(8) 

C 

C DISPLAY MESSAGE 
C 

19 CALL OUTDSP 
C 

2? CALL PAUSE 


PAGE 1 
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FOPTSFN COMPILER 


PAGE 2 


C 

C PftCPHT FOR mm KEUQ 0PERATI0M5 
C 

C LORD OOBC WITH DEBUG CODE 
C 

C 5DESXXX 

21 DQK*DBGME5<1> 

C 

C M FOR ALL C€BUQ TYPES 

22 00 100 I=if HHXDBG 
C 

C LOfiO OOBN WITH "ECONO HflLF OF PROMPT 

23 WWWSGIB.'J+l) 

C 

C OlSPUtV m WRIT FOR RESPONSE 
C 

24 Cfill OUTDSP 


25 CALL INPCOU 

C 

C TEST IF FS)J PRESSED 


It 


IF<fiDJUST> THEN 

27 


TEHPIOI 

28 


GO TO 1080 

29 

A 

END IF 


C IF 

RST l E4IT 

20 


IF (RESET) THEN 

21 


TEMPI 0=0 

32 


GO TO 100O 

32 

C 

END IF 


C ELSE IF NXT ; CONTINUE 

34 

108 

CONTINUE 


C 



C DEFRULT EXIT 

25 

C 

TEKPI0=0 

36 

1000 

CONTINUE 

27 


RETURN 

38 


END 


original PAGE is 
0F POOR QUALITY 


MODULE iHFORrtflTION: 

CODE ftREfl SIZE = 90fiSH ISO 
VflRIfifiLE fiREfl SIZE = 0004H 40 

MAXIMUM STACK SIZE = 00MH 100 
91 LINES READ 

0 PROGRAM ERRGR(S) IN PROGRfiM UNIT DfiUGCI 
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"ORTPPN COMPILER 


PAGE 3 


ISIS— 31 TOISFN-M VI 1 CCHPILftTlOH OF PROGRAM UNIT KUSCO 
OBJECT MODULE PLACED IN -Fi:VCSDBQ. OBJ 
COMPILER INVOKED EY: FORTS© :rl:VCSOBG. FOR 


1 SUBROUTINE DEUGCO 
C 

C DBUGCO OUTPUTS DEBUG INFORMATION TO CONTROL'DISPLAY PANEL 
C 

C INPUTS- DEBUG CONTROL VECTOR 
C OUTPUTS: DEBUG fESSAGES 
C CALLS: CUTDSP, CLOCK 
C DESTROYS- NOTHING 
C MODIFIES: NOTHING 
C VERSION 1 9 
C 

2 IMPLICIT INTEGER*’ (A-2) 

C 

3 CHRRflCTBM DSPCOD(iO) 

4 CHfiPfiCTER*4 DOBC,DOBN 

5 CHARACTER*4 EERHE5(20), DEGNE5C20), RUN!£5(20) 

C 

5 INTEGERS CIB<S0>, KIB<8), D0B<8), T0B<128>, P JB<2), PCB<2>, V0B<2) 

C 

? CCXtfON/COteUF/ CIBj KIB, DOB, T08, PIBf PQB, VQB 

C 

8 comxMEsne/ errkes, dbgmes, rimes, dspcoo 

c 

9 SAVE /COHEUF/j ,'TIESTftB/ 

C 

10 EQUIVALENCE <D06(i>, WED, (MEN, D0B(5)> 

C 

C 

C LOAD DOB WITH PROMPT 
C 

11 DOBC=DBGM£S«:i) 

1 Z D0BMNNHE5(ft 



C OOBG-OK* 


C 



C DISPLAY MESSAGE 


C 


13 

C 

CALL OUTDS? 


C USE TIME OUT FEATURE 

id 

C 

CALL CLOCK 

15 


RETURN 

16 


END 


MODULE INFORMATION: 

CODE AREA SIZE = 902DH 45D 

VARIABLE AF” SIZE = 3660H 00 


ORIGINAL PA® IS 
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F0PW1 COMPILER 

wfiXtHUH rP.CK SIZE * 1® 

44 LINES R0D 

0 psfljSft! «PC?'.S> IN FPOGRPH UNIT DEUGCO 


ORIGINAL PAGE IS 
OF POOR QUALITY 


PfffiE 4 
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FflWTWK COMPILER PAGE 5 

ORIGINAL PAGE IS 

ISIS— I! F0R~AN-S0 VI 1 COMPILATION OF PROGRAM WIT DBUGOT OF p00R QUALITY 

OBJECT Mrf'LlE PLACE' IN :Fl:VC£Mfl.t»J 
COMPILE 9 . INVOKED SV- FORTS0 :Fi:VCSMG. FOR 


1 SUBROUTINE DBUGOT 
C 

C C'BUGOT OUTPUTS DEBUG CONTROL INFORMATION TO PONT AND RERR DRUMS 
C 

C INPUTS: DEBUG CONTROL INFORMATION 
C' OUTPUTS 1 DRUM CONTROL SIGNALS 
C CALLS' OUTDSP, INPCDU.* CNTOUT 
C DESTROYS: NOTHING 
C MODIFIES: NOTHING 
C VERSION t 9 
C 

2 IMPLICIT INTEGER*’ CA-Z) 

C 

3 INTEGER*! CIB<80), KZB(8>j D0B<3>^ T0B<123), PIBC2), POB<2D: V0SC2) 

C , 

* CHARACTER*! DSPCODCiB), D0B4 

5 CHARACTERS DOBC, DOBH 

6 CHARACTER*4 B3>MESC20>» DBGHES<29># RUWCE<20> 

C 

7 LOGICAL*! NEST, ADJUST, RESET, AUTO, MANUAL PHRFF.L, RUN, CALBPT 

B LOGICAL*! I0FV5C, IOFVOT - 

9 LOGICAL*! CNTVEC(iS), CNHFRT, CNHRER, CNMOUT, SftWEC<*‘9> 

C 

10 COMMON/IOFVEC/IOFVEC‘'20) 

C 

11 CflMMON/MESTi AB/ERRMES, 5BGMES, RUNNES, DSPCOD 
C 

!2 COHNfWCPANEL'HEXT, «D JUST, RESET, AUTO, MANUAL PHRFflL RUN, CALERT 

C 

13 COMMON/COMBUF/CIB. KIB, DOB, TOB, PIB, POB, YOB 
C 

14 COMIOH/OPPARM/NDUfKl?), NMXCNH, HDUN(li> 

C 

15 CONWON/CNTVEC/CHTVEC 
C 

IS COWWSAV0VSAWEC 

c 

17 SAVE /IOFVEC/, /SAVER/ 

18 SAVE /TESTAE/’, /COMBUF/i /CNTYEC/ , /OPPAPH/, /CPfWEL/ 

C 

19 EQUIVALENCE (IOFYOT, I0FVECC12)) 

29 EQUIVALENCE <CNTYEC<8>, CNHFRT), <CNTVEC(9), CWfiER), CCNTVEC(i8>, CNMOUT) 

21 EQUIVALENCE CDOB(i), DOBC), <DGSM> D0B(5)), (D0BC4), D0B4) 

C 

c 

C SAVE CONTROL MASK VECTOR AND FORCE ELEMENTS 
C 

22 DC 160 I=LWCNM 

22 SAWEC(I)=CNTVEC<I) 

24 CNTVECCI>= TRIE 
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FQPTPfiM COMPILER 


PftGE 6 


130 CONTINUE 
C 

EftWEC * NKXCNK*i > =1 CFW T 
!CFV0T= POE 
C 

C LOAD OISFLflV vtITH WWT 
C 

150 C0HT1WE 
MB«eQ®<2) 
D0B4=0EPC0D(3) 
DOBH=E??MES<ii> 

C 0UT=4VG! 

C 

C OISPLftV HESSfiGE 
C 

can CUTKP 
c 

C Sill FOR OPERATOR RESPONSE 
C 

C ADJUST = IP 
C HE<T = DOWN 
C RESET = ST if 
C 


original Page |s 

F POOR QUALITY 


22 

CALL INPCDU 

34 

IF(fiDJl'ST) THEN 

25 

V0B<1>=1 

36 

V0B<2>=1 


C UP 

27 

D0BN*DBG?1ES<151 

33 

ELSE 

2? 

IFiNEXT) THEN 

40 

VOB(i>=-i 

<11 

V08<2>=-1 


C KWH 

42 

D0BtK)BGNE3<16> 

43 

ELSE 

44 

V0B>'1)=0 

45 

voe< 2 >=* 

46 

MHWBQhESCli) 


C END 

47 

END IF 

43 

m if 


C OUTPUT VALVE CONTROL SIGNALS 
C 

CALL CUTOUT 
C 

C WAIT FOR OPERATOR RESPONSE 
CALL OUTDSP 
e 

C OUT’END? OUT? UP OUTTMW 
CALL TNPCDU 

£ 

C RESET V08 TO IHO 

Q 

V03T1)=0 
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FWTRfiM WILES 


PAGE ? 




C OUTPUT VOB SIGNAL 

c 


5* 


CALL CMTQUT 

Zd 

V 

c 

IF (ADJUST; GO TO 150 


C RESTORE CONTROL MASK VECTOR 
C 

56 


DO 200 I=l» ffKCfffl 

57 


CNTVEC(I)=5fiWEC(I) 

58 

208 

CONTINUE 

59 

C 

IOFVOT=SfiWEC(NMXCHM+l) 

68 


RETURN 

61 


END 


MODULE INFORMATION* 

CODE AREA SIZE = 0156H I42D 

VARIABLE AREA SIZE = 0684H 4D 

MAXIMUM STftCK SIZE = S0SAH ISO 

125 LINES READ 

6 PROGRAM ERROR (S) IN PROGRAM WIT DEUG07 
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FORTRAN COMPILER 


FflGE 8 


I5I5-II FORTRAN-BO V2. i CQt-IPILflTICH OF PP.QGPAM UNIT DEUQIK 
OBJECT MODULE PLACED IN : ?l VCSDGG. OBJ 
COMPILE?. INVOKED W: FOP T ?3 :Fi:'/CSD8a.F0R 


ORIGINAL 

OF POOR 


P *GE 13 

Quality 


1 


2 

1 

4 

5 
5 

7 

8 
9 


10 

11 

12 

13 

14 

15 

16 

17 

IS 

13 

29 

21 


22 


SUBROUTINE DBUGIN (FLAG) 

C 

C DBUGIN READS SENSOR DATA VIR I/O ROUTINES AS PER INPUT 
C 

C INPUTS: SENSOR BUFFER CONTROL VECTOR 
C OUTPUTS: NONE 

C CALLS: SENINP, PAUSE OUTOSP; FORMAT, COUVP.T. INPCDU 
C DE5TR0VS: NOTHING 
C MODIFIES: SENSOR INPUT OftTfl SfoSDB 
C VERSION 1 0 
C 

IMPLICIT INTEGER+2 <ft-Z) 

C 

INTEGER*! CBVTE 

INTEGER* CIB<80)i KIB<8>, D0B<8>; T08(128>» PIBC2), P05<2>, YOB (2) 

C 

CHARACTER* 0SPCQCK10); D054 
CHARACTERS ODBC. MSB 

CHPMCTEW EERNES(20>< D0GME5(2B); PJNMES(20> 

C 

LOGICAL*! NEXT; AUTO; RUN; RESET. RD JUST; MANUAL PHRFRL CALBP.T 
LOGICAL* I0FVEC(29); SAWECC48) 

C 

COMfKWCPWEL/fEXT; AD JUST; RESET; AUTO; MANUAL PHRFRL RUN; CALEP.T 
C 

COMMON/SENBUF/SIBClfl), SDfi<10) 

C 

COHMON/'COHEUF/CIB; KIB. DOB; TOB; PIB; POB; VOB 
C 

COMHON/ICFVEC/IOFYEC 
C - 

CONHON/OPPARM/LDUfKlG); NHXSB1 MMK5>* WtXICf, NDUNC12) 

C 

COIttOH/’WORK/TEMPIO; NDU1<3>i ZWJMC16) 

C 

COMMON/SAVER/SAWEC 

C 

COlWOH/MESTAB/BJRffiS; CfiGMES; RUHMES, DiPCOD 
C 

SAVE /CPANEL/i /SAVER/; /OPPflRH/ 

SAVE /COHBJF/; /IOFYEC/; /ME5TA8A ZHORKA /SENEUF/ 

C 

EQUIVALENCE (D0B<5); DOBS); (D0B(4>; COB4) 

EQUIVALENCE (DQB(1); WBC); (D0B(5), DOBN) 

C 

C 

C LOAD MB WITH PROMPT FOR DISPLAY 
C 

C FLfiG ■ 1 FOR DATA CONVERSION 
IF (FLAG. HE. 0> DBJ 
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FORTRAN COMPILES 




ffsGE 9 


22 

24 

25 
2S 
2? 
25 


29 


39 


31 

32 

33 

?4 


35 

2* 


3? 

33 

39 

49 

41 

42 

43 


44 

45 


43 

47 

48 

4? 


59 



C DISPLAY MESSAGE 
C 

CALL OUTDSP 
C 

C WAIT FOR OPERATOR RESPONSE 
C 

CALL PAUSE 
C 

C SAVE I/O MASK VECTOR PHD SET TRUE 
C 

DO 130 l=LNMXI0F 
SftWEC(l)=IOFV£C<!) 

10FVECUH TRUE. 

100 CONTINUE 
C 

C CALL SENSOR INPUT ROUTINE 
C 

130 CAU. SENINP 
C 

IFTFlAG. r£ 9) CALL CONVRT 
C 

C DISPLAY VALUE READ IN FOR EACH I/O CHANNEL 
C 

DO 208 I=L HtiXSEH 
IFIFLAG. EQ. 9) THEN 
DOBWWI) 

ELSE 

DOBH=SDBa) 

0ID IF 

D0B(3)=I+433H 
C INX=22Z2 
C 

C FORMAT HEX VALUE INTO ASCII IN 008 
C 

CALL FORMAKDOBN) 

C 

CALL OTTOS? 

C 

C WAIT FOR OPERATOR RESPONSE 
C 

CALL INPCDU 
IF(RESET) GO TO 253 
IFCRDJUST) GO TO 150 
C 

299 CONTINUE 
C 

C RESTORE I/O MASK VECTOR 
C 

•258 DO 303 !=i» NMXIOF 
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fwton compiler 


Pf££ 10 


51 


ioiwn=sfivv£ca> 

52 

2D0 

CONTINUE 

53 


return 

5*1 


BIO 


f P °°* QUALITY 


HOWLS INFQfWftTIOMt 

CODE SREfl SIZE = S1S2H 3540 
VPRIflELE RREfl SIZE = 0007H 7D 
HWIHUM STfiCK SIZE = 000ftH 100 
113 LINES RE® 

0 pPQGPfiM ERRORCS) IN PROGRAM OMIT DEUGIH 


-133 



POftTPflM COMPILER 


PAGE li 


ISIS-I! P0TOK8 V2.1 COMPILATION OF FROQRfiM UNIT D6UGCK ORIGINAL t AGE 

OBJECT MC-O'JLE PLACED IN :Fi:VCS0Bii OBJ OF POOR OUAUw 

COTILE? INVOKED BV- FORTS© : Fi : VCSDBG. FOR 


1 SUBROUTINE D8UECK 
C 

C DBUGCK CHECKS THE CLOCK TIMER FOR VCS SYNCRONIZATIOfl 
C 

C INPUTS* NONE 
C OUTPUTS' NONE 

c cats: clock, intreh 

C DESTROYS: NOTHING 
C MODIFIES: MB 
C VERSION 1 0 
1 

2 IMPLICIT INTEGERS (fl-Z) 

C 

3 INTEGER*! TFlflGCS) 

4 INTEGER*! C1B(80), KIBC85, D08C8), T0B<126), PIBC2>j PCB<2>/ V08C2) 
C 

5 CHARACTER*! DOBC/ DOEH, ERRMES(20). DBGHES<20), PUNHESC20) 

6 CHfKACTERyi BSPCOMlfl) 

C 

7 COMt^CO^ELf/CIB; KI5, DOB, T05, PIB, P08, VOB 
C 

8 CQHMON/CLQCK/ TFURG 
C 


9 

!0 

•ii 


COMlWMESTfiB/ ESRHE5, DEGHES, RUNME5, DSPCOD 
C 

SfiVE /C0K5UFA /MESTABA /CLOCK/ 

C 


EQUIVALENCE (OOBCi), OOBC>, OOBN) 
C 


c 

C ENABLE CLOCK INTERRUPTS 
C 


!2 


CALL IHTREH 

13 


ISAV=IGFCAS 

14 


I0FCfiS=0 

15 


D0BC=D9CNES(8) 

16 

C 

MBI«BGHES<7) 

CLK?I/0? 


c 


17 

c 

CHI CLOCK 

18 

c 

IOFCAS=ISfiV 

19 


RETURN 

20 


end 


MODULE INFORMATION: 
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FOPTPPN COWILE? 


PAGE 12 


CODE SIZE ~ tfOjW <3D 
VPPISOE PPE? SIZE 1 «0 4 H *0 
HftXIWH S^PCK SIZE * 230SH 100 
4* LIKES 9EfiO 


ORIGINAL 

°F POOR 


page is 
Quality 


0 PROOFS! ERROR' -' -*< PRCG^PM tftIT C€L"jCK 


435 



TOPTpflH COMPILER 


PAGE 13 


ChUtaaiiW. rWlkj iii^ 

ISIS-11 FQSTPflN-50 V2. i COMPILATION OF PROGRAM UNIT OBUGIO CF POOR QUALITY 

OBJECT MQOULE PLACED IN -ri:VCSDBa '3BJ 
COMPILER INVOKED BV* FORTS0 :Fi;YCS0EG. FOR 


i 


2 

3 

4 

5 

6 
? 


8 


10 

11 


12 


13 

14 

15 

16 


SUBROUTINE DBUQ10 


C 

C D5UGI0 READS AN I/O CHfiHNEL OR PORT AH) DISPLAYS VALUE 
C 

C INPUTS: NONE 
C OUTPUTS: HONE 

C CALLS: CUTDSP, PAUSE, INPCDU, SEMINP, FORMAT 
C DESTROVS ' NOTHING 
C MODIFIES: NB,TEHPIO 
C VERSION L 0 
C 

IMPLICIT INTEGER*2 (A-Z) 

C 

INTEGER*! BITS(3) 

INTEGER*! C1B( SO), KIB(8>, DC'B'8), T0B(129), PIB(2>, P0B(2>, V0B<2> 
JNTEGEE*1 DSPCODClfl) 

C 

LOGICAL*! NEXT, ADJUST, RESET, AUTO, MANUAL PHRFAL RUN, CALBP.T 
C 

CHfiRACTER*4 ERRMESC20), DEGMES(20), IUK5(2B)» OOBC, DOBN 
C 

CQMIWSENBUF/SIBCiO), SDB(10) 

C 

COMHON/CPANEL/TIEXT, ADJUST, RESET, AUTO, MANUAL PHRFPL RUM, CALBPT 
C 

COMHON/MORK/ BITS, WM(16) 

C 

comm/caeuF/ cib, kib, dob, tob, pib, fob, vob 

c 

CCMMQN/flEST AB/ERRHE5, DBGNES, RUNHES, DSPCOD 
C 

SAVE A»m/ 

SAVE /CGMBUF/j /WESTAB/, /CPfflEL/, /SENBUF/ 

C 

EQUIVALENCE (DOEKIMOBC), <D0B(5>, DOBN) 

E&J I VALENCE (D03X, 0QB<5)> 


C 


c 

C LOAD 008 WITH PROMPT 


C 


17 


D0BC=RIWNE5(1) 

13 


DCBN=0BGHE5(i4) 


C TI/OCHA! 
C 

19 

C 

CALL OUTDSP 

29 

c 

CALL PAUSE 

y. 

c 

HHXIQOS 
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FORTRAN COMPILER 


PAGE 14 


22 

C 

DO 100 I«JL NHXICC 


c 

LOAD MB HI TV PROMPTS 


c 


22 


DOBC=ERRHES‘M) 

24 


dobi'1^dsfcod<e;- 

25 

c 

MBN-SlWS<2fl) 

c«m it 


c 


2* 

c 

CALL OUTDSP 

27 


CALL INPCDU 


C 

C TEST IF UPDATE 
C 

C IF F r E<IT 

28 IF -RESET) QO TO 1600 
C TEST IF ROJ PRESSED 

29 IF(fiWUST) THEH 
C 

23 50 CPU SENINP 

c 

31 TEMPI0=5ISd> 

C 

32 75 MBX=WIO 
C 

C FORMAT VALUE AND DISPLAY 

33 CALL FQRHAT(MBX) 

C 

34 CALL OUTDSP 
C 

C WAIT FOR OPERATOR 

35 CALL INPCDU 
C 

C TEST IF NXT PRESSED CONTINUE LOOP 

38 IFOiEXT) 00 TO 100 

C 

C TEST IF RESET > EXIT 

27 IF<RESET> GO TO 1000 
C ELSE ADJUST .READ AGAIH 

28 GO TO 58 

39 END IF 
C 

40 100 CONTINUE 

C 

C ELSE NEXT. COHTTHUE 

41 10® CONTINUE 

42 RETURN 

43 END 


Oiii^Nx r, 

OF POOR QUALITY 


MODULE INFORMATION r 

CODE AREA SIZE = 00D7H 215D 
VARIABLE AREA SIZE = U88H CD 
MAXIMJH STACK SIZE = 000AH 15D 
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FORTrtffl COP?!l£p 
iM LIMES 

5 WGRfiti Hppapr 


ORIGINAL PAGE IS PAGE & 

OF POOR QUALITY 

''' 1,1 WIT DBUGJO 
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FOPTPPM COMPILES 


PAGE 16 


ISJS-I! FOFFAfi-BO V2. 1 COMPILATION OF PROGRAM WIT KU6TP 
OBJECT MODULE PLACED IN :Fi:VCSE€G.OBJ 
COMPILES INWKED 5V: FORT80 :Fi:YCED6G.FC*R 


ORIGINAL PAGE is 
OF POOR QUALITY 


2 

2 

4 

5 

6 

7 

8 

9 

10 

11 

12 

12 

14 


15 

16 

17 

18 

19 

20 
21 
22 
22 

24 

25 

26 
2? 


SUBROUTINE ta’STP 

c 

C DeUQTP CHECKS OPERATION OF THE TAPE CASSETTE 


C 

C IHPUTS- NONE 
C OUTPUTS: NONE 

C CALLS: AIOCAS, 0UTD5P, HSEC2H, PAUSE 
C DESTROYS: NOTHING 
C MODIFIES: C08i TOB 
C VERSION 1 8 
C 

IMPLICIT INTEGER Cft-2) 

C 

INTEGER*1 016(80). KIB<8>, DOB<8>, T0B<123>, PIB<2>, PGB<2>, V0B(2) 
1HTEGER*1 CNTL(4) 

C 

CHARACTER*! 0SPC0DC19) 

CHfLRfiCTER*4 DQBC, BOEM, ERRMES<20>, C£<2£S<28>, RUNHESC29) 

C 

COttKWSEHBUF/SIBttB), SDB<10) 

C 

COHKOH/CWBiJF/CIB, KIBi DOB, TOB, PIB, POB, YOB 
C 

COfflON/MESTRB/ 1 ERRMES, D8GMES, RUHHES, DSPCOD 


C 

COMMURK/ TQ!PI0,DUMHY(19) 
C 

SAVE /ME5TPB/, /COMBUFA /HGRK/ 
SAVE /SENEUF/ 


EQUIVALENCE <WJMlWD/CmL(D) 
EQUIVALENCE <D0B(i), DOSC), (008(5), DOEN) 


C 


CNTL(2)=0 

CNTL<i>*2 

IEMP!0=9 

CALL AIOCAS(TQIPIO) 
CALL HSEC2H 
IF(CNTL(2UE 0) THEM 
D0BC=ERRMES(15) 
DQBN=RUHMESa5) 

CALL OUTDSP 
CPiL PAUSE 
END IF 
RETURN 
END 
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FORTPajj COMPILER 


PftGE 17 


w.ie iwcBwnw- 

coos *rep s:rE 

WIPPLE PPEP S13 
M^T'Ult JTPCK SIZE 
45 LI® Rt*D 

0 mm ERROR'S) 


* 0055H 850 

* 0C00H CO 

a M0PH ICO 


IN WOGRflN UNIT D6UQTP 


Original page is 
O r POOR QUALITY 
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FORTRAN COMPILER 


PACE 13 


ORIGINAL PAGE 1 $ 

I** HI VI i COMPILATION OF PROGFAft WIT KUGHE OF POOR QUALITY 

OSJECT +ME VC® W : r 1 «CSMd OBJ 
COMPILER INVOKED BY- FORTSO :Fl.VC5DS0. FOR 


1 SUBROUTINE KUGffi 
C 

C QBUSTC DISPLAYS >0K)RY TO THE OPERATOR VIA THE DISPLAY 
C 

C INPUTS’ HOKE 
C OUTPUTS: NONE 

C CALLS: QUTDSP. FQPHAT INPCDU. AGENT. PPUT1T. INPHtX 
C DESTROYS NOTHING 
CR001FIE5: MB, MOWN 
C VERSION 1 0 
C 

2 IMPLICIT \mm*2 

c 

3 INTEGER*! CI0T6O , '»KIB<3>»W3B(8>«TK<129> ; PIB<2>. FQS^>. YCfi'vi) 

4 INTEOE2M. 

C 

5 LOGICAL*! NEXT. ADJUST. RESET. AUTO. HAtRSL B1RFPL PUN. CALBRT 

8 ' CHPOftCTEIM WF»:OOii0)fK64 

? CHARACTERS MBC.DOBN.ERMS<2O\OEGNES‘i0>»PWINESC40) 

C 

8 COMWCPANEL 'NEXT. ADJUST. RESET- WTO . MANUAL. PNRPPb PUN. CflLERT 

C 

8 COHWMQHSJF/ CtB.KIB.D06.T0S.PlB.F08.VQ8 

C 

m COtmWAWRK.- TBW0.BHK1® 

C 

11 COWWNESTAB/ EKWES. DEGMES. RUNHE5. DSPCOD 
t 

12 SAVE /aw/. /HSSTfiB/. /CPANEL/- /MURK/ 

C 

1? EQUIVALENCE <TENPIO.BITS\i» 

ii EQUIVALENCE TDOBCi). OOBC^ CD05<5>. WEN > 

15 ESUIVAL01CE (B0BC5). MffiO. UD0B4. 006(4') 

18 EQUIVALENCE <W8<2V-00B2> 



C 

C LOAD DOB WITH MEMORY DUMP MESSAGE 


C 


17 


WBC«DB8€S<9> 

IS 


W8N=DBGf€SaOJ 


c mmv 


c 


IS 

a 

CALL OUTDSP 

20 

U 

CALL INPCDU 


C 




DOB WITH HB'ORV ADDRESS REQUEST 


c 


24 

100 OQ8C*PEWES<20' 
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F0PT5PH COMPILER 


PAGE 13 


24 


25 


27 


29 

29 

20 

31 

32 


34 


35 


35 

37 

38 

39 


4»3 

41 

42 

43 

44 

45 
45 


47 

48 


»8N=SLWE5':iO> 
C ADR 1 44 
C 

CPU. GUTDSP 



C INPUT he; vdUE OF MEMORY BVTE TO DISPLAY 
C 

CPU. INPHEX 
C 

C SAVE TENPIO ADDRESS FOR AUTO INCREMENT 
THJ1PIO=OUMMV<l> 

C YflL'JE PASSED IN TEMPIO+1 SLOT 
200 fiDR$fiV»TEMP!0 
C 

C CALL AGETIT TO RECOVER CONTENTS OF MEMORY .REFERENCED IN TEMP10 
210 CALL AGETIT (TEMP10. MBX) 

C 

C DQ8X WILL HAYE TWO CONSECUTIVE BYTES/ FORMAT AND DISPLAY 
C 

CALL FORNflTCDOBX) 

D0B<8>=00BCS) 

D0B(7)«D0BC5) 

D03<S)=43DH 
D0B2=TEW0 
CALL FORMAT <D082> 

C 

CfiLL 0UTD5P 
C 

C INPUT C^JTROL VALUE FOR AUTO INCREMENT OR END 
CALL INPCOU 

C 

C IF AUTO INCREMENT RECOVER fiDDRESS INC BY 1 AND LOOP 
C HOTKEY 

IFCNEXT' THEN 
TENPIOsfiDRSAV+1 
GO TO 200 
BID IF 
C 

C ADJUST PRESSED. GET HEN VALUE 
IFCfiDJUSP THEN 
MBC4B9E5(20) 
call INPHEi 
C DUMflYCl) = NEW BYTE 
TBHO=fiDRSAY 
CfiLL fiPUTITOEMPIO) 

GO TO 210 
END IF 
C 

C ELSE RST . EXIT 
RETURN 
END 


NODULE INFORMATION: 

CODE AREA SIZE = &9D4H 212D 
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FOPTPBN COT IIEP 


PflOE 29 


'•WP^SLE *PE* SIZE = 5002H Of 
HPWHUH STPCV SIZE * OWW IOC 
192 LINES SB® 

0 F^C 5 ^ IN ftGGfflH WIT DfiUOT 

9 TOTPL PPOOTH ESRCR(S> 

EHO OF FORTRfiN COUPILflTION 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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FQftTRfiN COSHER 


PAGE 1 


ISIS-II FOWW-M V2. i COMPILATION OF PROGRAM WIT PAUSE 
OBJECT MODULE PURGED Ifl Fi.YCSlOU. OBJ 
COMPILER INVOKED BY' FORTSO :Fi:VCSI0U. FOR 


ORIGINAL PAGE IS 
OF POOR QUALITY 


1 SUBROUTINE PAUSE 
C 

C PAUSE WAITS FOR THE USER TO PRESS ANY KEY ON THE INPUT C/D 
C 

C INPUTS- NONE 
C OUTPUTS: NONE 
C CPUS' INPCWIfOUTBSP 
C DESTROYS' NOTHING 
C MODIFIES' CPftNEL 
C VERSION: 10 
C 

2 IMPLICIT INTEGERS (ft-Z> 

C 

3 INTEGERS CIBCSO), KI9(8)i D0B(8>, T0B<123>, PIBC2> FOB(2>, V09v2> 

4 INTEGERS BITS(3>,0UMY<22> 

C 

5 LOGICAL*! NEXT, ADJUST, RESET, AUTO, MANUAL RUN, CfiLERT, FWffSL 
C 

$ COMMON/CPANEL' 1 NEXT, ADJUST, RESET, fiUTO, MANUAL S WRFFL* PUN, CPL2P.T 

C 

7 COHMOWM0RK/BIT5, DUMMY 
C 

8 COtmON/COffiUF/C ‘.B, KIB, DOB, TOO, PIB, FOB, YOB 
C 

9 SAVE /COt1BUF. > , /CPRNEL/, /WORK/ 

c 


c 

C XXXXXXX! 


10 

C 

D0B<8M2iH 

li 

c 

CALL OUTDSP 

12 

10 

CONTINUE 


c 


13 

c 

CALL INPCDU 

14 

c 

IF (RESET OR NEXT. OR ADJUST) GO TO 500 

15 


GO TO 10 

lb* 

500 

CONTINUE 

1? 


RETURN 

19 


END 


MODULE INFORMATION' 

CODE AREA SIZE = 301FH 31D 
VARIABLE AREA SIZE * WH 0D 
MAXIMUM STACK SIZE = 0002H 2D 
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PAGE 2 


43 LIMES RERD 

0 PROGRAM ERRORS) IN PROGRAM UNIT PAUSE 


ORIGINAI 

°P POOR 


13 

QUALITY 
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FORTRAN COMPILER 


PAGE 3 


ORIGINAL PAGE IS 

ISIS-n FORTRAN-39 V2 i CCHPILflT!0« of program wit CLOCK OF poor QUALITY 

OBJECT MODULE Fine® IN :F1:VCSI0U OBJ 
COMPILER INVOKED B'i': FORT80 :Fi:VCSI<U FOR 


1 SUBROUTINE CLOCK 

C 

C CLOCK SVNCR0HI2ES THE YCS TO THE TWER UNIT 


2 

3 

4 

5 


6 

7 

8 


C 

C INPUTS' NONE 
C OUTPUTS: NOtE 
C CPUS: NOTHING 
C OESTROYS' NOTHING 
C MODIFIES: NOTHING 
C VERSION: 1 0 
C 

IMPLICIT INTEGER*’ (ft-2) 

C 

IHTEGEiM TFLAG(S) 

C 

COHWOH/aOCKTTafW 

c 

SAVE/CLOCK' 

c 

c 

1*0 

C TEST i SECOND RAG BYTE FLAG FOR INTERRUPT PROCESS SYNC 
100 IFCIFLHK3). 0) GO TO 200 
1 * 1+1 


C TIME OUT IF NO INTERRUPT 


9 


IF<I.GE 20009) GO TO 200 

19 


GO TO 100 

11 

230 

CONTINUE 

12 

C 

TRAGG>=0 

13 


RETURN 

14 


, END 


MODULE INFORMATION: 

/CODE AREA SIZE * 8035H 53D 

\ VARIABLE RREA SIZE = 0062H 2D 
HAXIHUH STACK SIZE = O002H 2D 
33 LINES READ 

0 PROGRAM ERRORCS) IN PROGRAM UNIT aOCK 
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FORTRAN WILES 


P*GS 4 


ISIS-! I FORTWJHO V2. i COMPILATION if PROGRAM UNIT INPCW 

OBJECT MOiMS PLACED IN .FIVCSIOU. OBJ ORIGINAL PAGE IS 

•ICMOTLE? I TO SV- FOSTSO :Fl-VCSIW.FOR Of POOR QUALITY 


1 SUBROUTINE INPCW 
C 

C IIPCDU READS Tt£ C/D PfifiEL AND RETURNS ft LOGICAL ARRAY 
C 

C INPUTS: NONE 
C OUTPUTS: DATA IN /COMOK' 

C CALLS: ftlOCDU 
C DESTROYS; NOTHING 
C MODIFIES 1 CONTROL WORDS 
C VERSION L0 
C 

2 IMPLICIT INTEGERS 
C 

3 INTEGER*! BITS<8), 0WHV<22> 

c 

4 LOGICflL*l LBIT5<8>, NEXT, ADJUST, RESET, AUTO, HANUfiL, RUN, CfiLSRT, PltRFPL 
C 

5 COMMCN/CPANEL/IEXT, AWLST, RESET, AUTO, MANUAL, PHRFfiL RUN, CfiLERT 
C 

S COHWN/WGPJ7BITS,CUIW 

C 

7 CQHHON/OPSYEC/OPMODE, NOOECT, RNGMSK, RRRft¥<7) 

C 

3 COftlON/ERRFLG/ ERRORCS) 

C 

9 SAVE /WORK/, /OPSVEC/, /ERRFIGA /CPANEL/ 

C 

10 EQUIVALENCE ''LBITS<i),NEXT> 

C 

c 

C 8ITSC1). NEXT, ACTIVE LOW, 9 
C BIT5(2>, ADJUST, ACTIVE LOUfi 
C BIT5<3>, FUN/CAL R UN ACTIVE HIGH, iiiiiiilB 
C Ca ACTIVE LOW, 0 

C BITS* 4', RESET, ACTIVE LOW, 0 
C BITS<5>,fiUT0* ACTIVE LOH0 
C BITS(S), MANUAL ACTIVE HIGH, 111111113 
C BITS??), POWER FAIL ACTIVE HIGH, IiiiiiilB 
C 

C CLEAR WORK STORAGE AND READ C/D PANEL 
C 

11 DO 100 M,$ 

12 BITS<I>*3 

13 LBITS(I)*. FALSE 

14 190 CONTINUE * 

C 

15 CALL AIOCCU‘BITS(i)> 

C 

C TEST INPUTS AM RESET STATUS WORDS AS APPROPRIATE 
C 
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FWTON WILES 


PflGE 5 


IS IF*:S!TS(i' Hit O' THEN ORIGINAL PAGE IS 

C ^jn^CHWESSED OF POOR QUALITY 

i? _ Dlt- IF 

L? * IF<BI7S«rS' EQ. *> THEM 

C 4MUST SWITCH PRESSED 

20 tiDJUSTa TRUE. 

21 END IF 
C 

22 IF(BITSO). Ea 0) WEN 
C CALIBRATE MODE SWITCH SET 

C IF IN RUN rtlt€ NOW* EXIT TO HALT 

23 CflLBRT* TOE 

C IF IN AUTO OR HRNUfL MOOES 

24 IF'TOPMODE. EE 1). OR. (OPNODE Ea 4)> THEN 

25 OFHOD&a 

2$ RETURN 

2? END IF 

C 

20 END IF 

C 

29 IFffllTSW Ea 0> THEN 

C RESET SWITCH PRESSED 

30 RESET-. TRUE 

31 END IF 
C 

C IF RUN SWITCH ON 
C 

32 IFCBITSC3). f£ 0) THEN 

C 

33 RUN= TRUE 

34 IF<8IT5i5>.Ea0> THEN 

C RUTOMfiTIC NODE SWITCH PRESSED 

35 fiUTD= TRUE 

35 OPHODE=i 

C RESET TIME OUT ON CONTROL 

37 3ERO=0 

38 CALL RKMWZERD) 

3? END IF 

C 

40 IF<BITS(5> NE 0> THEN 

C iKJDE = MANUAL DISABLE SYSTEM 

41 NfiNUftL* TRUE 

42 OfWOE«4 

43 END IF 
C 

44 END IF 
C 

45 IF<BITS(7V IE 0) TIEN 

C POWER FAILURE OR SHUT DOWN ON 39 VOLT CONTROL VOLTfiOS 
C HALT SYSTEM 
45 PWRFftL= TRUE 

47 OFHCCE=0 

48 ERR0R'2M 
C 

49 END IF 
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FORTWN COWLES 


PfiGE 6 


C 

50 SSTURM 

51 END 


ORIGINAL PAGE IS 
OF POOR QUALITY 


module [‘iFOPwrio'i. 

CODE ARER SIZE * OUCH &4D 
VPRIfiELE fiPEft SIZE » 0004H 4D 
HflKIWH STOCK SIZE * 0OO4H 40 
ill LINES SEW 

0 PPOGRPH ESROR(S) IN PROGRAM UNIT INPCDU 
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FOPttfiN COMPILER 


PAGE 7 


ISIS-!! FCRTWM-M Y2 i COMPILATION OF FRC3WH UNIT IKRWEX 
OBJECT MODULE PUiCED IN ’Fi:YCSIQU OBJ 

COMPILER INWED BY' FORTB 0 :F 1 :VCS 1 CUL FOR ORIGINAL PAGE IS 

OF POOR QUALITY 


1 SUBROUTINE IHFHEX 
C 

C INFHEX GETS A ® NUMBER FROM THE C/D 8V DYNAMIC PROMPTING 
C 

C INPUTS: NQffi 

C OUTPUTS: KX WLUE IN TEKPIO 
C C&LS' fllOCWJ* OUTDSP* FORMAT 
C DESTROYS ’ NOTHING 
C NOOIFIES’ /WORK/* COB 
C VERSION L 0 
C 

2 IMPLICIT INTEGERS <(H> 

C 

3 INTEGER* U0RKO3>«XDUtC8» 

4 INTEGER* CIBW>* T0BC12*), PIBC2), POBC2), KIB(8>i YCBO 
C 

5 DIMENSION WDN<4> 

C 

6 CHARACTER* 00S<8> 

c 

7 COM-tOH/TIORlVTEM 1 1 0, DNUN» NAG. IC.'f, *'CGb HUH. I* J. HOBO WW(5) 
C 

3 COUMOM/COHEUF/C I B> tfC* MS Tift Pfe r&* VOB 

C 

9 SAVE /CONBUF/,/WORK' 

C 

iO EOUIVfilEHCE CD0BC5)* BOBO* iPOB(l), XCOM<i» 

C 

c 

C INITIALIZE PARAMETERS fiNO CLEAR HORK AREA 
C 


ii 


DO 100 1*1*4 

12 


NlUNCI>=e 

13 

100 

CONTINUE 


c 


14 


D0BX*0 

15 


MAG* 

IS 


NUM*0 

l 7 


IC0L=0 

19 


ICNT=0 

19 

c 

GO TO 2159 

20 

1000 

CONTINUE 

a 


CALL filQCDU <K0RK<1» 


C 

C TEST IF RESET CENTER) KEY PRESSED 
C 

22 IFCHQBCC4). EG. 0^ GO TO 3009 

C 

C TEST IF NEXT K£V PRESSED 
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PAGE 8 


22 


IFWC13. HO O' TTtEH 

24 


BMKtCOWSxICHT 

25 


ICOL«W3D'TCGL*L4’» 

y 


ICNT*9 



HRG=i6*HC0L 

23 


GO TO 2800 

29 

C 

END IF 


C TEST IF ADJUST KEV PRE5SEI 


C 


28 


IF(WPK<2)- EQ. 8) THEM 

31 


ICNT“N0D(ICNT+L16) 

22 


DNUH<ICQL*1)=1CNT 

33 


GO TO 2080 

24 

C 

END IF 


C BUILD VALUE FROM IMPUTS 
{* 

35 

# 

2898 

D0BX=8 

26 


M 

27 


CO 2180 1=1*4 

38 


DOBX=OOBX+ONUH(!>*J 

29 


J=J*i6 

40 

2199 

CONTINUE 

4i 

2150 

CONTINUE 


C 


42 

C 

TEKPIO=DOBX 

43 

c 

CALL FORMAT (OOBX) 


C » IN UNSET DIGITS 

44 


IFCICOLLT 2) THEN 

45 


J=3-IC0L 

46 


DO 2200 I«LJ 

47 


XDUHU+4M23H 

48 

2208 

CONTINUE 

49 


END IF 

58 

C 

CALL OUTDSP 

51 

C 

GO TO 1000 

52 

53 

2080 

CONTINUE 

0NUH(1)*TENPI0 

54 

C 

TEKPIQ=*FH 

55 


RETURN 

56 


END 


s •:** is 

POOH QUALITY 


MODULE INFORMATION: 

CODE fiREfl SIZE * 817DH 2810 
VARIABLE AREA SIZE = 0002H 20 
MAXIMUM STACK SIZE = 0002H 2D 
S8 HUES PESO 
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PORTPfiN COMPILER 


* PPOGPPH E 5 PC'P , ‘S> \)i UNIT INPHSK 


ORIGINAL PAGE IS 
OF POOR QUALITY 


PfiGE ? 
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PAGE 10 


I?!MJ FCRWN-80 VI 1 COMPILATION Cf WGFPM WiIT PROMoy 
iwtect MODULE p\JK® III -Fi-VCSIOU.WJ 

COMPILES 1HVC+H* BV- FOPTGO :Fi:VCSIOO FOP 0 ^GINAL n>A^ 

0F p °°« «S5i? 


1 SUBROUTINE PROMPT 
C 

C " P T DI 5 PLAVS ft FPOrtPT IN LETS WO INPUTS C/O 
C 

n INPUTS: NONE 
C OUTPUTS'. NONE 
C CALLS: INPCDU, AIOOSP 
C DESTROYS NOTHING 
C MODIFIES NOTHING 
C VERSION: 1, 0 
C 

2 INTEGER*! CIBtSO), KIBC8>» D0B(3>* T06U2S). PIB(2)» P0B(2). VOB(2) 
C 

3 CCWlOfl/COMBUF/CIBi KIB. 008. TOB. PtB. FOB, VOB 
C 

4 SAVE /C0M8UF.' 

C 

C*^-W**.*.+))i***i|n«****»a*****ai**»^»'M I iW***************** , * i ' ‘ ' ***** 

c 

5 CPU flICOSP(DOB<i)> 

C 

6 CPU INFCOU 

c 

7 RETURN 

S 0© 


MODULE INFORMATIOM: 

CODE AREA SICE * 800AH 100 

VARIABLE AREA SIS * 0000 H 00 

MAXIMUM STACK SIS * O0A2H 20 

25 LINES REPO 

3 PROGRAM ERPORCS) IN PROGRAM UNIT PROMPT 

0 TOTAL PROGRAM ERRQRCST 
ENO OF FORTRAN COMPILATION 
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rw TCfHI COMPILER 


PAGE 1 


ISIS-tX FORTRPN-$0 V? i COMPILATION OF P'OOPfH UNIT CONFNC ORIGINAL PAGE IS 
CB1ET howls PLACED IN ‘PirVCSCOH OBJ OF POOR QUALITY 
COMPILER INVOKED B v FQRTM :Fi VC5C0N FOR 


1 SUBROUTINE CONFNC 
C 

C CONFNC IS <5 TPGLE ORIVEH ROUTING WHICH IS USED TO CONVERT 
C SENSOR DATA TO ENGINEERING WITS AS RtWWf 
C 

C INPUTS: SENSOR INDEX AND DATA 
C OUTPUTS: NONE 
C CALLS: RAHGCK (OPTION) 

C DESTROYS: NOTHING 
C MODIFIES: TOPIO 
C VERSION: LO 
C 

2 IMPLICIT INTEGERS (ft-2) 

C 

3 DIMENSION SENTABttO, Z)> RGCDfiKifl.- 2) 

C 

4 COWON/HORK/ TEim 51NPNL WMWiS) 

C 

5 COtWl/COUTAB/SENTAE^ RGCDAT 
C 

$ comoN/OPmv optioce iiooecl rnghsg arrays 

c 

7 SAVE /CONTAB/* /OPSVECA /WORK/ 

c 

C 

C CONVERT VALUE IN TEHPIO TO ENGINEERING UNITS V = ft+S+S 
C 

9 TEHPIO=SENTAB(SIJPNT > l>+TEMPIO*5ENTft8<5INPNL 2) 

C 

C TEST IF RANGE CHECK NEEDED 
C 

9 IF(RNGMSK f£ 0) THEN 

10 CALL RflNGCK 

11 END IF 
r 

12 ’ RETURN 

13 END 


MODULE INFORMATION- 

CODE AREA SIZE = 993BH SSD 

VARIABLE AREA SIZE = NOW 90 
WIHUil STACK SIZE * 0094H 40 

33 LINES READ 

A PROGRAM ERROR'S) IN PROGRAM UNIT CCNRIC 
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FOPTPPN COMPILES 


FACE 2 


tsis-n pcRWflH-ee V2. i compilation of program unit rahgck 

OSTECT MOWjLE PLACED IN F1VC5C0H OBJ 
COMPILES INVOKED BV- FORTS0 :FlrVCECOH FOP 


), SUBROUTINE SfiUGCK 

C 

C RTWCK TESTS CONVERTED SENSOR BATA AGAINST MAX AND MIN LIMITS 
C 

C INPUTS; INDEX POINTER) DATA 
C O'JTFLJTS ; ERROR FLAG i 
C CALLS: NOTHING 
C DE5TR0VS: NOTHING 
C MODIFIES- SDB 
C VERSION- i. 9 
C 

2 IMPLICIT INTEGERS 
C 

3 DIMENSION RGCDAT(10)2))SENTABCiO/2) 

C 

4 COMNON/CQNTAB/ SENTflB/ RGCDRT 
C 

5 COMMON/ESRFLG/ ERSOR(S) 

C 

6 COHMQH/WQRK/ TENPIO, SINPNT, 0UMNY<18> 

C 

7 SAVE TWMA/CONTfW.'ERRRG/ 

C 

C 

C TEST DATA AGAINST MAX AND PROCESS 
C 

3 IFfTEMPIO. GT. PGCDATCSItPNT. 2) ) THEN 

? TEMPI0=RGCDAT(SINPNT,2) 

10 ERROR<i>*SIHPNT 

11 RETURN 

12 END IF 
C 

C TEST CA'A AGAINST MINIMUM AND PROCESS 
C 

13 IFCTEHPIO, LT. PGCMKSMNT, i» THEN 

14 TEMPIO=RGCDAT(SIHPNT)l> 

15 ERROR<i>=i0+StNPHT 

16 RETURN 

17 END IF 
C 

18 RETURN 

13 END 


MODULE INFORMATION; 

CODE AREA SIZE = 0O64H 1090 
VP°IA£LE AREA SIZE = O000H OD 
MAXIMUM STACK SIZE = OO02H 2D 


WGmL Pagb is 

0F P00R QUALITY 
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FQRtRRI COTILER 


PfiQE 2 


42 LltiEs READ 

0 FPOGPftl ERROR'S'' IN PR(™*H '.WIT RfiNGCK 

9 TOTAL PMGWH ERROR' S' 

END OF FORTRAN COLLATION 


ORIGINAL PAGE IS 
OF POOR QUAL2TY 


456 



FORTRAN C0HPILE9 
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ORiGm r«rji : ; 

ISIS-II F3PTPAN-S8 Vi i COMPILATION OF PROGRAM UNIT INPCID OF POOR QUALITY 

CB-TEGT NOODLE PLACED IN 'FIVCSINP. OBJ 
COMPILE? INVOKED BV- FORT83 -FLVCSINP FOR 


1 SUBROUTINE IIIPCID 
C 

C INPCID INPUTS THE CID DATA VIA FORT OL CONTROL VIA PORT 02 
C 

C INPUTS: NOE 
C OUTPUTS: CIO DATA IN SIB 
C CALLS: 8U0CID 
C DESTROYS: NOTHING 
C MODIFIES: SIB 
C VERSION: 10 
C 

2 IMPLICIT INTEGER*’ (B-Z> 

C 

3 DIMENSION SIB(i». SDBttt) 

C 

4 CONNON/SENBUF/ SIBjSOB 
C 

5 COMHON/KORK/ TEMPIQ. 5IHPNL DUhMVd^ 

C 

b SAVE /SENBUF// /WORK/ 

C 

C 

C SET SINPNT TO CID VALUE 
C 

7 SINPNT=6 

C 

0 CALL AiCCID (TEHPIO) 

C 

? SIB(SINPNT) a TEIPIO 

C 

10 RETURN 

11 END 


NODULE INFORMATION: 


CODE AREA SIZE = 001EH 20D 
VARIABLE AREA SIZE * 0000H OD 
MAXIMUM STACK SIZE = 0O62H 2D 
3 3 LINES READ 

0 PROGRAM ERROR'S) IN PROGRAM UNIT ILPCID 
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FORTRAN COMPILER 


PAGE 2 


ISIS-!! PORTpf»n-eo Mil COMPILATION Cf PROGRAM UNIT INPPKS ORIGINAL PAGE IS 

OBJECT NODULE PLACED IN :Fi:VCSIHP OBJ OF POOR QUALITY 

COMPILE? INVOKED BV: FORT30 :Fi:MCSINP. FOR 


1 


2 

3 

4 

5 

6 

7 

8 
4 

10 

11 

12 

13 

14 

15 


SUBROUTINE INPPKS 
C 

C INPPKS INPUTS THE FRONT PIC REfiR PICK SIGNALS MIR PORTS ILUPCHT 10,12 
C 

C IIPJTS: NOME 

C TXJTPUTS • PICK DftTfl IN SIB 
C CALLS: INPUT (FORTRAN ROUTINED 
C DESTROYS: NOTHING 
C MODIFIES: SIB 
C VERSION' 1 O 
C 

IMPLICIT INTEGER*’ <ft-2> 

C 

C 

C 

c 

c 

c 
c* 
c 

CALL INPUT(#10H» I) 

C INPUT PORT WITH 4 PICK BITS 
C 

1=1, AND. *uFH 
C 

C 

C 

c 

c 


INTEGER*! I 

DIMENSION 5IB(10)/SDB(10) 
CONMON/SENBUF/ SIB,SDB 
COMMOH/WORK/TQ1P 10, SIliPHT, DUMMYC18D 
SAVE /SENBUF/, /WORK.'’ 


SIB<7)=I, fiND. H03H 

SIB(8)=I, fiND. MCH 

IF(5IB(7). GT, 9) SIB(7)-i 

IFCSIBC8>.BT.8> SIB(8)=i 

RETURN 

END 


MODULE INFORMATION: 

CODE AREA SIS = 0048H 720 

VARIABLE PREA SIS = SOOIH 10 

MAXIMUM STACK SIS = O902H 20 

48 LINES READ 

0 PROGRAM ERROR'S) IN f^OGRAft UNIT INPPKS 
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F0PT«H OWPtLBl 


RfiGE 3 


e TOTftU PROGRfiM ESMR(S) 
?it« of wmm coHPiwnoH 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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flxmm compile? 


PAGE 1 


ISIS-tt FORTRflfi-90 V2. i COMPILATION OF PROGRAM UNIT OUTCftS 
CBTP.'T HOTULE PLACED IN :Fi:«SIffiOM 
CWP7JER ItWOTCD BV- FO8T60 :Fi:VCSIQZ. FOR 


page IS 


i 


2 

3 

4 

5 

6 

7 

8 
q 

10 

11 


12 

13 

14 

15 


IS 


SUBROUTINE OUTCftS 
C 

C OUTCftS OUTPUTS THE CASSETTE OUTPUT BUFFER TO THE DIGITAL CASSETTE 
C Vlft PORT 08* 05* Oft* CONTROL PORT Ofi 
C 

c inputs' im 

C OUTPUTS: NONE 
C CALLS: ftlOCflS 
C DESTROYS: NOTHING 
C MODIFIES; NOTHING 
C VERSION 1 0 
C 

IMPLICIT INTEGER+2 <ft-Z> 

C 

INTEGERS ClB<S0)*KIB<8)*D3e<8>*TOB(123>,PIB(2>*PC5(2y V0SC2> 
INTEGER+i DUNtlY<2>* IflFVB(20>iTFLM«)#CflSNH«4) 

C 

LOGICAL*i lOFCfiS 
C 

COMMQH/ESPRG/ERROR< 8) 

C 

COMSI/CONBUF/ CIB* KIB, DOB* TOB* PIB* FOB, VOB 
C 

COfiMON/IOFVEC/IOFVEC 

C 

C0MN0H/0PSPNT/0PPNTS(8) 

C 

COMNQN/CLOCK/TFLflG 

C 

DIMENSION CflSDftT(10) 

C 

EQUIVALENCE (CflSHRKCl)*TEMPI0>* <CRSHRK<3>, DW«YU> > 
EQUIVALENCE (CfiSHRK<4)* DUHNV<2» 

EQUIVALENCE <CflSDflT<l>*TOB<l» 

EQUIVALENCE CIOFCAS, I0FVEC<15» 

C 

SAVE /ERRFIG/* /OPSPNT/* /CQMBUF/* /IOFVECA /CLOCK/ 

C 

c 

C FORMAT OF CASSETTE COiiTROL BUFFER 
C TO ftlCCAS 10 DRIVER 
C 

C CASWRKC+) INTEGER* 

C TEHPIO* DUW1Y(i>* NJMHY<2> 

C DATA CHTl ERROR 

C WORD BYTE BYTE 

C 

C CONTROL =1 WRITE; =2 FAST FORWARD 
C 

C ERROR =0 OK ; *1 BEOT 
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FORTOH COMPILER ^ 2 

ORIGINAL PAGE IS 

, OF POOR QUALITY 

C 0FFHTS»*2> a POINTS? T 0 SN 7 ? V 
C CFJWSO* * MM® OP IH BLOCK 
C 

l* *#**«.*** 

c 

i? TFLAGC2'«0 

19 IFHOFCAS) THEN 

C TEST IF END OF BLOCK 64 WORDS 

19 IF<0PPNTS(3>. GE. 64) 00 TO 100 
C TEST IF DATA LEFT IN BUFFER 

C IF 0 DONE SKIP ELSE NRITE DATA 

20 IF(0PPNTS(2). GT. 0) THEN 
C 

21 MJWWiM 

22 DUW(2>=0 

23 TEM>I(KflSDftT(0PPtlTSC2» 

C 

C CALL CASSETTE 10 DRIVER ROUTINE 

24 CALL AlOCflSOEMPEO) 

C 

C TEST IF ERROR CONDITION RETURNED BV AIQCAS 

25 IF(DUHHY<2). f£ 0) ERR0R<5)*0UMV<2) 

26 0FPNTS(2)=0PPNTS<2)-i 

2’ CPPNTS<3'=0PPNTS<3Mt 

C 

29 END IF 

C END SECOND IF .(QPrtlTS) 

29 END IF 

C END FIRST IF <<|QFCflS> 

30 RETURN 
C 

C RESET POINTER FDR DATA BUFFER; WAIT ONE 100MSEC INTERRUPT 
21 109 0PFHTS<3>=9 

32 RETURN 

33 BID 


MODULE INFORMATION: 

CODE AREA SIZE = 0074H 116D 

VARIABLE AREA SIZE = 8904H 40 

MAXIMUM STACK SIZE = 0002H 2D 

97 LINES READ 

O FROGRftM ERPOR(S) IN FROGRAH UNIT OUTCAS 
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FORTRAN COMPILER 


ORIGINAL PAGE IS 
OF POOR QUALITY 


PAGE 3 


I5IS-II FWTHH-M V2.1 C0HPILBT1CH Cf PROGRAM UNIT OUTKP 
OBJECT MODULE PLACED IN rFirVCSIOZ. OBJ 
COMPILER IHVWEB BY: FORTH tlycsioz for 


1 SUBROUTINE 0UTD5P 
C 

C OUTDSP OUTPUTS THE DISPLAY BUFFER TO THE LED DISPLAY UNIT 
C 

C INPUTS: NONE 
C OUTPUTS: NONE 
C CALLS: AIODSP 
C DESTROYS: NOTHING 
C MODIFIES: NOTHING 
C VERSION 1. 0 
C 

2 IMPLICIT INTEGERS (ft-Z) 

C 

3 INTEGER*! CIB<88>, KIB<8>, DQB(S>j T0B(129)i PIB<2>.- P0B<2>, V0B<2> 
C 

4 COMMONXCOMBUF/ CIB« KIB» DOS, TOBi PIB. POB, YOB 
C 

5 SAVE /COMBUF/ 

C 



6 CALL AIOOSP(M8(i» 
C 

7 RETURN 

8 END 


MODULE INFORMATION: 

ODE AREA SIZE = 6O07H 7D 
VIABLE FREA SIZE* 00WH 00 
MAXIMUM STACK SIZE = 0002H 2D 
25 LINES READ 


0 PROGRAM ERROR(S) IN PROGFfiM UNIT OUTDSP 
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?0* 7 PRN COMPILER 


ORIGINAL PAGE IS 
OF POOR QUALITY 


PAGE 4 


ISIS-tt F0RT?sm-«q V2.1 COMPILATION OF PROGRAM UNIT SfiVWT 
OBJECT HOWLS PLACED IN :FI:VCSI0Z OBJ 
COMPILE 5 l>iYC*'ED BY- PORT80 :Fi VTSI02. FOR 


1 SUBROUTINE SAVWT 
C 

C SAVOAT LOROS DATR TO BE STORED ON CASSETTE INTO BUFFER 
C ft© SETS UP POINTERS 
C 

C INPUTS: HONE 

C OUTPUTS: TAPE OUTPUT BUFFER AND POINTERS 
C CALLS' NOTHING 
C DESTROYS: NOTHING 
C MOOIFIES' m POINTERS 
C VERSION L0 
C . 

2 IMPLICIT INTEGER*2 <A-Z) 

C 

3 INTEGERS CtB<8e>, KIB<8>. TOBCBJ, TOBOmPIB(2)/ P0B<2)/VGB<2> 

4 INTEGER*! TFLAGC6) 

C 

5 COMON/CLOCK/TFLRG 
C 

6 COMNON/COMBUF/ CIB, KIB/ POBi TOB, PIE, FOB/ V08 
C 

7 CCW10N/SENBUF/ 516(10), SDB<10> 

C 

3 COfmVOP5FNT/OPPJITS<8) 

C 

9 COMMON/PARANS/PfiRHS(20) 

C 

16 COMHON/’OPSVEC/OPHOOE, KGOECT, 0DUM(8> 

C 

11 DIMENSION CftSDAT<10) 

C 

12 EQUIVALENCE (CASDATCl), TCB<1) >, (PARMStt?), SNDSTP) 

C 

13 SAVE /OP5FNTA /PfiRfiKSA /OPSYEC/ 

14 SAVE /COMBUFA /SENBUFA 'OPSPNTA /'SENMEMA /CLOCK/ 

C 

C 

15 IF(0FPNTS(2). IE 0) GO TO 1000 
C 

C LOAD SENSOR DATA <5 HORDS) INTO BUFFER 
IS DO 100 1=2/6 

17 CASDftT(I)=SDB(M) 

13 109 CONTIWJE 

C 

C FORM = mU mWIMlll FOR MARKING RECORD 

19 CASDAT (1>=#0FC3FH 

C CLEAR CASDAT(l) AND PACK 4 NUMBERS (NIBBLES) INTO IT 
C 

20 !F(V0B(2). HE. 0) CASDaT(i>=CASDAT(i>. OR J0040H 
C 
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FOPTPFM COMPILER 


21 IFiVOBii). ME. V CASDAT ( 1>«CAS&AT (i) if. IMttH 
C 

22 IF<SWi3V HE 0' CflSMT<i)iCfi£MT<i>. 0*. 

C 

2: !FiSDB<7\ NE. 8) CflSMND-CFSMTt'iJ. CP. W2MH 

C 

c raw * Jiiieoxxvveoiiii for hpkinq fscofd 


24 


IFCOPHOOE Efl. 1> THEM 

25 


TEMPX«*020*H 

&> 


ELSE 

27 


TEMPXHO100H 

28 


END IF 

2? 


IFCMOOECT, E'l t> THEN 

30 


TEMPV*IW80H 

2i 


ELSE 

32 


TEMPV»lfl040H 

33 

C 

END IF 

34 

c 

CASDAT (? ) *fOFOOFH+TENPX+TEMPV 

35 

c 

TFLAG<2) S 8 


C SET COUNTER FOR DATA WORDS TO WRITE 

36 

c 

0PPHTS<2)=7 

37 

1M0 

C 

CONTINUE 

38 


RETURN 

39 


END 


ORIGINAL PAGE IS 
OF POOR QUALITY 


PAGE 5 


HOHJLE INFORMATION: 

CODE WEA SIZE * 0102H 258D 

VARIABLE AREA SIZE = 0O&H 6D 

MAXIMUM STACK SIZE * 0002H 2D 

31 LINES READ 

0 PROGRAM ESROSiS) III PROGRAM UNIT SHVOAT 

0 TOTAL PROGRAM ERROR'S) 

END OF FORTRAN COMPILATION 
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FORTRAN COMPILER 


ORIGINAL PAGE 13 
OF POOR QUALITY 


I5IS-II FQRTFAH-S0 Y2 1 CCKPILATION OF PPOGPPH UNIT WITZ 
0BJEC T NQMLE PLACED III FiYCEff-P OBJ 
COMPILE 9 WfrEDBV- FOPTS0 Fi VCSTPP FOP 


1 


2 


3 = 

4 = 

5 = 
5 = 

7 = 

8 = 
3 = 

19 * 

11 * 
12 * 

13 * 

14 = 


15 = 


IB = 

5 

17 = 
19 * 
19 * 
29 = 


SUBROUTINE TfiPITZ 
C 

c trpit: writes tie tape header 



c 

C VCS SVSTEH MEMORY ALLOCATION 
C 

miCIT INTEG£R*2<fi-Z> 

INTEGER*! CIB, KIG> COB* TOBi PIB, PQB. YOB 
INTEGER*! PKFBUF# PKRBUFi PKFSRW, PKRSflV 
INTEGER*! WXIPX(S>, TFLflG(6> 

INTEGOM ERRBUFCS, 10) 

C 

LOGICfiL*i IOFYEC<20>, CNTVECU6), SINT'S). SWSim C£GH<B> 
LOGICAL*! DEF10V<29), E€FCTY(16) 

LOGICAL*! NEXT, ADJUST, RESET. RUN. CALERT, PWFfib AUTO, KWJRL 


C 

CHARACTER*! Ffi RMES, NOSHE5C10) 

CHARACTER*! OSPCOO(iO) 

CHARACTER*! DOBC,OOEN.£FSMES(10) 

CHARACTER*! ERRHES<20), OB&1E5<20)» RUNME£(29> 
C 

DIHENSICN DEFPRM(20), 0EFPNT<8> 

C 


C COItlOfl BLOCK ALLOCATIONS 
C 

CONHON/CPANEL'TEXT. ADJUST, RESET. AUTO, MANUAL PHFfRL PUN. CREPT 


C 

C 

c 

c 


COMttOH/TESTB2/ PFRIES(20) 


C0TIWWESTB3AJP9SS 


COMHOM’OSNES^HJSHES 

COfWN/SEHPNT/SEHPTRtlB) 


21 = COWON/PIKBU/PKTBUFdO), PKSEUFitt), PKFSAY, PKPSRY 
= C 

22 = COHNON/CLOCK/TFLAG 

= C 

23 = COMMON/'E’EBUG/DBGH 

a C 

24 - C0NH0H/SENDS-'LCD£L(49), PCDEL' 60) • FDRDEL<.409) 

= C 

25 = COMMQM/IQFYEC/ lOF'EC 

= C 

2S = COHHOti/CHTVEC/CKTVEC 

= C 

2? = CCM1ON/CfSYEC/OFSVECC10^ 


PP.3E 1 
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FORTRAN COMPILER 


FACE 2 


8 C 

23 * C0MM0H/GPPARN/ICMFNT(18), NHAX(i6), HMXIPX 
8 C 

2? 8 W»SE?ll€H/T5n } AS<M00),DECmi<ie> 

» c 

30 8 COHi10H/OPSPNT/OPPNTS<8> 

* c 

31 8 COITOJ/WRK/TE!f 10, HJWWiS) 

8 c 

32 8 COMNQN/SAVER/SAYEC 28> 

SS C 

33 8 COItlON/PARAMS/ PftRftO) 

8 C 

34 8 COMHON/'ERfiBLF, / ERRBUF 

8 C 

35 8 COWON/ERRFLG/ EER0RC8) 

8 C 

35 8 C0HHCM/C0«BIF/'CIB<88>, KIBC8), 006(8), T0BU23), PIS<2>, P08<2>, VCB<2) 

= C 

37 8 COMMOH/SEHa.f/SIBU0),SM(i3) 

3 C 

38 8 CONHOH'tONTRB/SENTASQO/ 2>, RGCDftT (10, 2) 

8 C 

39 8 C0KM0N/HESTAB/EKRt€5, D6GMES, RUNMES, DSPCOO 
8 C 

40 8 COMTtOM^'DEFRLT/ OEFIOV, DEFPRMj DEFCTV, OEFPNT 

8 C 

41 8 COMHON/TCFTAB/ DEFRHO(18,2),DEFCOH(10,2) 

8 C 

42 8 aWLWOPS/DEFOPSdO) 

8 C 

43 8 CO«1Wl/tEF110S/DEFW0SC16) 

8 C 

44 8 SAVE /CFANEL/j /POCBUFA /SHVEB/* /ERRBUFA y SENDB^ 

45 8 SAVE /DEBUGS, /10FVEC/, /CNTYEC/, /OPSVEC/ 

46 8 SAVE /OPPARH/, /SENMEH/i /0P5PNT/, /CLOCK/, /WORK/, /DEFTAB/ 

47 8 SAVE /PAR AI1S/, /ERRFIG/, /CONBUF/, /SEN8UF/, /C0NTA5/, / HESTAE/, /DEFALT/ 

48 8 SAVE /SENPMTA /MESTB2A /NESTBSA /PEFOPS/ 

49 8 SAVE /DEFMOS/ 

8 C 

50 8 EQUIVALENCE <'WB(i), DOBC)* <D0B<5>, MSN) 

51 8 EQUIVALENCE (CPSVEC(l), OPHODE), (0PSVECi2), KODECT), (OPSYECa), FNWSK) 

52 8 EQUIVALENCE (CfSVEC<4>, QPSENR), (0PSYECC5), PATECK) 

53 8 EQUIVALENCE <0PSVEC(8)< STATUS)/ (TIME, TFLA8(4T) 

8 C 

C 

54 JHTEGER+i CHTl<4> 

C 

55 DIMENSION CASNRK<8> 

C 

55 EQUIVfiL£NCE(CNTVEC<4)> CASHRKC1)) 

57 EQUIVALENCE (CNTL(l),C’UWfY(i)> 

C 

C 

C IF CASSETTE ON, WRITE HEADER FILE 
C 


toiRlMAL PAGE 13 
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FORTRAN COMPILE? 


PfiGE 3 


55 

5? 


69 

51 

52 

53 
64 
63 


55 

57 

68 

6? 

70 

71 

72 

73 


74 

73 

76 

77 
73 

7? 

85 

31 

82 

83 

34 

85 

36 


87 
83 

88 

90 

91 

92 

93 

94 

95 

96 


MBN=D2GHE*19> 

CfiLL CUTDSP 

C WITE FILE GPP TO 5TRRT 
CRLF-tOrt«>H 
CHTU2)-0 
CffTUi^i 

C WRITE fi CftRRIfiCE RETURN LINE FEED 
TEKPlO*CRLF 
CPU. fllOCFS(TEHPIO) 

CPU. MSEC2H 

c 

C WRITE F6C5H PATTERN 
TEMPI0*#8F6C5H 
DO 1880 I*i» 20 
CfiLL filOCRS(TEHPIO) 

CfiLL MSEC2H 
1388 CONTINUE 
C 

TEMPID=CRLF 
CfiLL AIOCftS<TEHPIO> 

CfiLL MSEC2H 
C 

C HRITE 28 140RDS TV£N CRA.F 
DO 2800 I«L 20 
TENPIO*PARAN<I> 

CfiLL ftlOCftSttENPIO) 

CALL MSEC2H 
2880 CONTINUE 
C 

TEHPIO=CRLF 
CfiLL MGCASvTENPIO) 

CfU NSEC2H 

C WRITE OPERATION FA! RfiMS 
DO 1908 1=1,10 
TENPIO=OPSVEC(I) 

CfiLL flIOCflS(TE!'PIO) 

CALL HSEC2H 
I960 CONTINUE 
C 

DO 1950 1=1, 10 
TEMP10*CASHRK(I> 

CfiLL fllOCfiS(TElPIO) 

CfiLL NSEC2H 
1950 CONTINUE 
C 

TEHPIO=CFLF 
CfiLL fllOCftSiTEMPIO) 

CfiLL MSEC2H 
C 

RETURN 

END 


ORIGINAL page is 
OF POOP QUALITY 


MODULE INFORMATION: 

CODE AREA SIZE = 012PN 29SD 
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POPTBSfiH R? 


ORIGINAL PAGE 1$ 
OF POOR QUALITY 


PAGE 4 


WBU APEfi SIS ’ mt 
HPXIW STOCK SIZE » 30W 
1?? LINE? m 


200 

m 


• PWf1 ERROR'S^ IN BROGfifiN UNIT Tflpn? 

0 TOTAL FRQCRfjl EfffflKS) 

5 ® OF FORTRAN COMPILATION 
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ASMSO FiVCSOTLASN MACKGFILE HOD05 



LQC OBJ LINE SOUFCE STATEMENT 

1 > 

2 WHEVCSUTL 

2 i 

4 PUBLIC FORMAL flIOOSP* APUT17 

5 > 

6 EXTRN HEXASC*OUTPT 

7 j 

3 CSEG 
3 j 

ifl t &tt***&* **4± + *44* =^^ ■<• ****T*nK^+-+:«*n**t^**^^ 

11 *• 

12 5 SUBROUTINE flIOOSP 

13 i 

14 ) flIOOSP IS THE DISPI^V ORIYEP INTEFFRCE FOR THE VCS 

15 j 

16 ) 

17 i INPUTS- ADDRESS OF BQB<1) IN BC PAIR 

18 i OUTPUTS: NONE 

18 i CALLS: MONITRtOUTPT 
28 i DESTOJVS: F/F'S 

21 J MODIFIES: NOTHING 

22 J VERSION 10 

23 J 

24 AIODSP: 

0009 C5 25 PUSH B J ££T BC ONTO STACK 

9001 El 26 POP H J POP IT INTO HL PAIR FOR MEHGRV REFEFENCE 

0002 0E08 27 ttVI C> 08H ; SET CHARACTER COUNT OF 3 IN C 

0OO4 CO0M9 E 28 CALL OUTPT s CALL M5PLAV DRIVER IN MONITOR 
0007 Cl 28 POP B i RECOVER BC PAIR 

90O8 C9 38 RET J RETURN TO FORTRAN CALLING ROUTINE 

31 i 

33! 

34 ) SUBROUTINE FORMAT 

35 j 

36 ; FORMAT TlWiS 2 HEX SVTES IN WB<5,6> INTO ASCII IN D0B<5, 6, ?, i ) 

33 ! INPUTS: A^RESS OF D0B<5) IN BC PAIR 
33 ; OUTPUTS: /ASCII CODE IN DCB<5, 6, 7.. 8> 

48 j CALLS: NONITR.-HEXASC 

41 j DESTROYS* AiFTF'S.UL 

42 j MODIFIES: NOTHING 

43 i VERSION: 1 0 

44 j 



45 FORMAT- 


0098 C5 

46 

PUSH 3 j 

PUSH BC ONTO STACK 

O00A El 

47 

FOP H J 

POP A0DRE5S INTO HL PAIR 

0008 23 

48 

INXH) 

SET HL TO POINT TO D0BC8> 

000C 23 

43 

INX H 


0000 23 

SO 

INX H 


008E C5 

51 

PUSH B J 

SAVE EC ADDRESS OF O0B<5' ONTO STACK 

O00F CDiSOB C 

52 

CALL FQRH95 i CALL DECODING ROUTINE 

0012 Cl 

53 

POP B i 

GET BACK POINTER TO 0OB<5> 

0013 02 

54 

INX 3 

SET BC TO SECOND BVTt 
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isis-ii mms fKRO asseisler, vi o 


VCSUTL PfiQE 2 


ORIGINAL PAGE IS 
OF POOR QUALITY 


LOC OBJ Life SOURCE STATEMENT 

0014 2B 55 OCX H i HOVE HL -1 TO W)B<5) 

0015 CO1S0O C 56 CALL FORH05 * CfiLL DECODING ROUTINE 

0018 C9 5? RCT ) RETURN TO FORTRAN 


B019 0A 
001ft 5? 
0O1B E60F 

08 iD cmee 

0029 77 

0021 2B 
0922 7ft 

0022 0F 

0024 OF 

0025 0F 
8026 0F 
0827 CD0090 
002fl 77 
002B C? 


F0RM05: 

LOfiX B i GET I (6C) 

MOV D/fl ) SAVE IN D 

fiNI 6FH i KEEP LONER NIBBLE 

CALL HEXflSC ; CfiLL MONITOR HEX TO ASCII 

MOV M*ft i STORE ASCII INTO COB 

OCX H ; MOVE H -1 IN DOB 

MOV fb D ; GET FROM D 

RRC 

RRC J KEEP UPPER NIBBLE 

RRC 

RRC 

CfiLL HEXftSC J CRLL MONITOR HEX TO ASCII ROUTINE 
MOV ft ft ; STORE ASCII <HL> 

RET ; RETURN TO FORMAT CfiLL 


i SUBROUTINE PPUTIT 

i 

) APUTIT PUTS A BYTE INTO MEMORY FP.QN FORTRAN <POKE> 

i 

; INPUTS: BC -> TEMP IO=APDR, BVTE 
i OUTPUTS: NONE 
J CflLLS: NOTHING 
j DESTROVS: HF/F'S,BC 
i MODIFIES- MEMORY AT ACOR 
J VERSION: 10 


002C 0fl 
002P 6F 
092E 03 
002F 0A 
8020 67 

0631 03 
0032 Oft 
0623 77 
0824 C9 


APUTIT: 

LDflX B s GET ftDC-R LSB 
MOV LA 

INX B i POINT TO MSB 
LDAX B i GET MSB 
MOV HA 

; HL -> MEMORY PATCH AOOR 
INX B J EC -> BYTE 
LDAX B ; fICC = BYTE 
MOY Mift ! SET BYTE IN RAM 
RET 


PUBLIC SYMBOLS 

ftlODSP C 9000 fiPUTIT C 002C FORMAT C 0009 


EXTERNAL SYMBOLS 

KEXASC E 0980 0U7PT E 000O 


USES SYMBOLS 



ORIGINAL PAGE IS 
OF POOR QUALITY 

1515-11 '30&5/5995 MfrCF.O hSSDELERj V3. 0 VCSUTL PKE 3 


fllCDSP C COW fiPUTIT C O0SC F0FBJ5 C 001? FORMAT C «!0? HM9C £ SOW CL'TPT £ 25(5* 
flSSPSl .V CWLHTL HO ERRORS 
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WSO -Pi'VCSIffitfiSH HACMFILE H0063 


ISIS-!! Sm'50S5 u ACRO ASSEMBLER* V3.8 


AIOIDX PAGE 


LOC OBJ 


LIKE 


SOURCE STATEMENT 


1 J 

2 NfiMEAIOlQX 

3 J 

4 PUBLIC AIOClDi AIOVOT ifltOCAS 

5 i 

6 GXTRN HSEC2H 

7 J 

8 CSEG 

9 i 
18 

11 > 

12 ; SUBROUTINE A10CID 

13 i 

14 i AIOCID IS THE INPUT DRIVER FOR THE CID WIT 

15 i 

16 J INPUTS; ADDRESS Or TB1PI0 IN EC 

17 i OUTPUTS: CID DATA IN TEMPIO 
13 J CALLS: NOTHING 

19 ■ DESTROYS: AiF/F'S 

20 i MODIFIES: TEMP 10 



21 

J VERSION L 0 


22 

j 



23 

fllOCIO: 



24 

GET ADOR EC - TEMPIO 

0000 69 

25 

MOV LC 

\ 

0001 60 

26 

MOV HiB 


0002 0322 

27 

IN 033 H 

; LATCH COUNT 

0004 DS32 

28 

IN 032H 

J RESET TO START COUNT 

0006 D931 

29 

IN 031H 

i INPUT MSB 

0008 47 

30 

MOV B*A 

i PUT MSB INTO B 

0009 DS30 

31 

IN 030H 

i GET LSB 

0OOB 4F 

32 

MOV Ci A 

j PUT INTO C 


33 

i HL NOW 

POINTS TO TEMPIO FOR STC 

OOOC 71 

34 

MOV HiC 

j PUT LSB AT TEMPIO 

OOOD 23 

35 

m h t 

HL=HL+i 

OO0E 70 

36 

MOV Mi B 

; PUT MSB AT TEH? 10 H 


37 

f 


OOOF C9 

38 

RET ; RETURN TO FORTRAN 


39 } 

40 M 

41 i 

42 J SUBROUTIME AIOVOT 

43 J 

44 i RIOVOT IS THE YfiLVE DRIVER 10 ROUTINE 

45 ) 

J INPUTS: ADDRESS Cf CBYTE IN EC 
OUTPUTS: VALVE CONTROL BITS TO PORT IfiEEMEES 
j CALLS: NOTHING 
s DESTROYS- (IF/F # S 
i MODIFIES: TEMPtO 
} VERSION i 0 


tfrttttejnjnlnfc 


0010 3E0F 


46 

47 i 
43 

49 

50 

51 

52 

53 

54 


flavor 

m A/0FH 


CLEAR ACC - OUTPUT = 00001111 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


ISIS- 1 1 8980/8085 MACRO ASSEMBLER/ V3, 9 AIOIOK PAGE 2 


LOC OBJ 

LINE 

SOURCE STATEMENT 

9012 DIGS 

55 

OUT 06 j SEND TO CLEAR PORT BITS 

9014 C5 

56 

PUSH B ) HASTE TIME 

0915 Cl 

57 

POP B 

0816 3E2F 

58 

HVI A02FH ; LOAD 1 BIT TO RESET LINE FOR ONE SHOT 

0018 D306 

59 

OUT 06 i SEND BIT TO UNIT - OUTPUT 00101111 

09ifl C5 

60 

PUSH B ) HASTE TIME 

001B Cl 

61 

POP B 

»1C 2E0F 

62 

WI fcOFH } SEND 00001111 

081E D206 

63 

OUT 06 

0020 C5 

64 

PUSH B ) HASTE Tl* 

0021 Cl 

65 

POP B 

0922 3E1F 

66 

HVI A»01FH i LORD TRIGGER BIT 

0924 D306 

67 

OUT 06 i SEND 09011111 

9826 C5 

68 

PUSH B ) HASTE TIME 

0827 Cl 

69 

POP B 

0828 3E0F 

70 

HVI fl» 0FH ) CLEAR BITS 

002R D206 

71 

OUT 06 i SEND 80001111 


72 

j 

002C 0fl 

73 

LDAX B # GET C9VTE FOR OUTPUT 

0O2D tefiF 

74 

flNI 0FH l KEEP LOH NIBBLE 

092F D303 

75 

OUT 03 i TRANSMIT! TO VALVE DRIVER 


76 

} 

0031 C9 

77 

RET ; RETURN TO FORTRAN 


73 s 
99 1 

81 ; SUBROUTINE AlOCflS 

82 ) 

83 ; AlOCflS IS THE CASSETTE OUTPUT DRIVER ROUTINE 

84 ; 

85 i INPUTS: ADORES? Cf TEHPIO IN BC 
36 ; OUTPUTS: DATR TO CflSSETTE 

97 ; CflilS: NOTHING 

88 ; DESTROYS: A, F/F'S, B, C, D, E 

89 ; MODIFIES: NOTHING 

90 ; VERSION L 0 

91 i 

92 ) USE FROM FORTRAN CALL: 

93 J 

94 ; CflLL flICCflS CTEMPIO> 

95 i 

96 j TEHPIO = 16 BIT DATA HORD 

97 ; TENPIO+i = CONTROL FLAG BYTE 
93 i TEJ1PIO+2 = ERROR FLflG BYTE 
99 i 


0800 

100 CSCNTL EQU OH 

j NULL CONTROL BYTE 

0861 

101 COK EQU 1H i CASSETTE OK STATUS 

0099 

102 CBEOT ECU OH ; 

CASSETTE BEOT STATUS 

8009 

103 COUTH EQU 0?H 

; MSB OUTPUT PORT 

0908 

104 COUTL ESU OSH 

i LSB OUTPUT PORT 

00OB 

105 CSTRT EQU 0BH 

i STATUS PORT 


106 CCNTL EQU 0AH 

; CONTROL PORT 

0001 

107 CHCNTL EQU 1H 

» WRITE CONTROL BVTE 

0002 

108 CFCNTL EQU 2H 

109 s 

i FORWARD CONTROL BVTE 


473 



ISIS-I! 89*0/8085 MfiCRO ASSEMBLER* V3.0 


filOIOX PAGE 3 


LOG OBJ 


LIKE 

SOURCE STATEMENT 



110 

* STATUS BVTE 08 * NOT. EEOLOi - 0? SPARES 



ill 

flIOCflS: 



112 

i 8C POINTS TO TEMPIO ADDRESS 

'0032 6ft 


113 

LDflX B t GET LSB OF DATA 

0033 5F 


114 

MOV & R i PUT IT IN E 

0034 C5 


115 

PUSH 3 i SAVE BC ON STACK 

0035 93 


116 

IHX B i INCREMENT BC TO MSB 

0030 00 


117 

LDAX B J GET MSB INTO ACC 

003? 57 


118 

MOV Dift ) PUT IT IN 0 



HP 

i C£ HOLDS DATA (TEMPIO) 

0038 03 


120 

IHX 8 I POINT TO CONTROL BVTE 

093? 6A 


121 

LDAX B i GET CONTROL BVTE 

003fi 07 


122 

I NX B i POINT EC TO ERROR FLAG BVTE 



123 

i 



124 

s TEST IHPUT CONTROL BVTE FOR FUNCTION 

093B FEOi 


125 

CPI 81H i TEST IF CONTROL = 1 

063 D CA4A00 

C 

126 

JZ CWRITE J IF EQUAL GO TO WRITE 

6040 FE02 


127 

CPI 02H j TEST IF CONTROL « 2 

8042 CR6CD0 

c 

128 

JZ CFRNRD IF EQUAL GO TO FORHARD 

08*45 7E02 


129 

MV I ft*02H ; SET ERROR = 2 FOR ILLEAG& COMMAND 

0O47 C38900 

c 

130 

JMP CEXIT i UNDEFINED OPERATION > EXIT 



131 

j 



132 

CWRITE: 

004? 0800 


133 

IN CSTAT ! READ STATUS WORD 

604C E60i 


134 

ANI 81H J KILL ALL BUT BEOT BIT 

004E FEOi 


135 

CPI COK i TEST IF STATUS OK 

0050 C29300 

c 

136 

JNZ CERROR } IF ERROR GO TO PROCESS 

6053 7B 


137 

MOV fl,E 1 GET LSB INTO ACC 

0654 0208 


138 

OUT COUTL i SO© BVTE TO PORT 

0056 7fl 


139 

MOV ftD 1 GET MSB INTO ACC 

0657 0309 


148 

OUT COUTH i OUTPUT BYTE TO FORT 

0059 2E9i 


141 

MV I A/CNCNTL * GET TRITE CONTROL BYTE 

605B D3CA 


142 

OUT CCNTL i SEND TO CONTROL PORT 



143 

j HOLD START PULSE FOR 10 USEC <HIN) 

0050 3E05 


144 

MVI R*05H i SET COUNT IN ACC 

005F 30 


145 

CLOOP: OCR A ; DECREMENT COUNTER 

0060 C25F00 

c 

146 

JNZ CLOOP s IF NOT ZEPO LOOP 

0063 3E00 


147 

MVI A,CSCNTL ; SEND NULL CODE TO CASSETTE 

8065 0300 


148 

OUT CCNTL j SEND TO CONTROL PORT 

6667 7E00 


149 

MVI ftiO ; LOAD ZERO FOR ERROR FLAG 

0069 C38900 

c 

150 

JW 5 CEXIT 



151 

} 



152 

CFRWRD: 

9060 0008 


153 

IN CSTAT ) TEST STATUS 

096E E66i 


154 

ANI 01H ; KEEP BEOT BIT 

6070 FE09 


155 

CPI CBEOT ; TEST IF B OR E OF TAPE FLAG 

0072 C88300 

c 

156 

JZ CERROR ; IF BEOT LON ERRQP 

9875 3E02 


157 

MVI fcCFCNTL ; LOAD FFVSD BYTE 

0077 0300 


158 

out com 

9079 C69009 

E 

159 

CALL MSEC2H 

007C 3E80 


160 

MVI R*8 

007E 0288 


161 

OUT com. 

0980 C28960 

c 

162 

JMP CEXIT 



163 

i 
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164 

CERROR: 



iSIS-1! 39*0/8095 MfiCRO PSSEMEL& V3.9 


flIOIGX ffiGE 4 


ORIGINAL PAGE IS 
OF POOR QUALITY 


UK 09J LINE SOURCE STfliTSHEhT 


mz 3E0Q 

oees ww 
ws? :eoi 

3089 02 

eosfi ci 

08SB C9 


185 HVI A.CSCNTL » STOP BYTE 

i&j cur com 

167 HV! ft 8U SET ERROR FU& EEQT 
J£Q CCVIT* 

jfin STflK B » STORE ERROR BYTE IN KNOW LOCATION kBC> 
179 POP B J SET BC BflCK ftS IN CPU. 

171 RET ) RETURN TO FORTRAN 

172 J 

173 END 


PUBLIC SYMBOLS 
RIOCRS C 0932 

fliOCID C 0000 

RIOYOT C 0610 





EXTERNAL SYMBOLS 
MSEC2H E 0090 







USER SYMBOLS 
ftlOCRS C 0932 
CFCWL fi 0092 
CSTftT A M08 

flIOCID C 0000 
CFRHRD C 006C 
CWCNTL ft 0001 

RI0Y9T C 0919 
CLO0P C 005F 
CNRITE C 004ft 

CEEOT ft 9009 
C°K ft 0001 
MSEC2H E 0000 

CCNTL 

C0UTL 

ft 000ft 
ft 0009 

CEPROR C O0S3 
COOT:t ft 9099 

ASSEMBLY COMPLETE- NO ERRORS 







CEXIT 

CSCNTL 
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«HSO Pi’VCSIOD ftSH NRCMFILE NOD85 


IStS-II 9009/9005 MACRO ASSEMBLER, V3. 0 YCSIOO PAGE 


'toirciNAL PAGE IS 


LOC OBI LINE SOURCE STATEMENT 


me cs 
em D5 
9902 9ft 
0993 30 
0004 F3 
0905 260A 
000? D3S9 
9009 CD2S80 C 

000C 25 

0000 Cfli700 C 
0010 D£8i 
0012 ES89 

9014 cftocoe c 

0017 DB94 

0019 ESQF 
0016 4? 

001C DBS5 
091E 12 

eeiF fb 

0020 73 

0921 13 

0922 12 
9023 01 
092J Cl 
‘3025 C9 
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1 i 

2 NfiME VCSIOO 

3 ) 

4 PUBLIC AIOITZ, AIQftDC, AGETIT, fUOCWl CLKITZi fiCCITZ 

5 i 

6 EXTRN H5EC2H ; CflLL TO MONITOR WAIT 200 H SEC 

7 1 

8 CSEQ 
3 t 

11 J 

12 } SUBROUTINE AlOACC tU> 

13 > 

14 ) RlOftOC IS T}£ fl/D CONVERTER I/O Wm*ER ROUTINE 

15 i 

Id j INPUTS: BC,DE ftOORESS POINTERS 

17 i OUTPUTS: DATA IN ODE) 

18 s CALLS: NOTHING 

19 i OESTROVS: ilF/P'S 

20 J MODIFIES: WORK 

21 ; VERSION: 10 

22 j 

23 flIOftDC: i (SHEW, TEHPIO) 

24 i 

25 i BC POINTS TO SINPNT - CHANNEL #,DE POINTS TO STORAGE LOCATION 
25 ; 

27 PUSH B f SftVE BC ON STACK 
23 PUSH D J SftVE DE ON STACK 

29 LDflX B J GET VALUE OF SlfPNT INTO ft 

30 OCR ft i SET POINTER -i TO 0-7 FROM 1-8 

31 M J DISABLE INTERRUPTS 

32 MVI K-efiH i SET U> TIME OUT COUNTEP 

33 OUT flPXOTR i SEND CHfiN SaECT TO (IPX OUTPUT REGISTER 

34 CflLL HAIT58 

35 ftDC05: 

36 OCR H t DECREMENT COUNT 

37 J2 ADCGO , IF TINE OUT EXIT LOOP . 

33 IN fPXSIP } SAMFL£ ft/D DONE 

39 RNI 80H J TEST KsB 

48 J2 A0C05 t IF NOT READY LOOP 

41 flCCGO: IN HPXDfti i GET a S. BYTE 

42 fiHI 0FH i KEEP 12 BITS 

43 MOV Bifl } SftVE IN B REG 

44 IN tPXDfi2 j GET L S. BYTE 

45 STAX D i STORE AT TEHPIO USB 

46 El i REENABLE INTERRUPTS 

47 MOV ft> 6 J GET RS. BYTE INTO ft 

48 INX D > SET POINTER TO MSB OF TEMPIO 

49 STAX D j STORE ftT TEHPIO MSB 

50 POP D ; RESTORE iE 

51 POP B j RESTORE EC 

52 RET • RETURN TO FORTRAN 
52 ; 

:*» > DELAY ROUTUE 



ORIGINAL PAGE IS 
OF POOR QUALITY 


ISIS-IT 5080/8385 MACRO ^SStJ^ELE*?/ V3. 0 


VCSIOO PAGE 2 


LOC OBJ 

LINE SOURCE STATEMENT 

0026 060A 

55 HAIT59- MVI B,0AH ; LOAD COl 

0023 05 

56 iiRITDC : DCR B 

0829 C22S00 

0 57 1NZ WAITDC 

082C C9 

53 RET 


59 > 

0034 

68 KPXDAi EDO B4H I IPX DATA 1 

9885 

61 MPXDA2 ECU 85H ; IPX DATA 2 

0*380 

62 MPXOTR ECU 80H i rtPX OUTPUT 

0031 

63 /PXSIP ECU 81H i MPX STATUS 


0O2D or 
002E tr 
O02F 03 
0030 0A 
mi 67 

0632 7E 
0033 13 
603*1 12 
O025 IB 

0036 23 

0037 7E 

0038 12 

0039 C9 


m 85 PORT 


002P *3 


64 ; 

65 J 

66 ) 

67 i 

68 s 

69 ) 

70 i 

71 i 
» i 

73 i 

74 j 

75 i 

76 ; 

77 < 

78 ! 

79 

80 
81 
82 

83 

84 

85 

86 
97 
S3 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
182 

103 

104 

105 

106 
107 
103 
109 


SUBROUTINE R6ETIT <LJ> 

mil 7RKES THE HEX ADDRESS OF TEKP10 IN BC AND 
LORDS THE VALUE AND PUTS IT IN *'DE) 

INPUTS: BC/DE 

OUTPUTS: m VALUE IN J AT (DE) 

CALLS: NOTHING 
DESTROYS: fUF/F'S 
MODIFIES: TEMPIO 
VERSION: 18 


flQETlT: 

LDflX B j LOAD A WITH (SC) 

NOV LA J STORE LSB IN L FOR MEM REF 
I NX B s INCREMENT BC 
LDRX B j LORD R WITH (BC) 

MOV H,A i STORE IN H MSB FOR POINT TO SINPNT 
i ML IS ADDRESS TO GET FOR DISPLAY 

MOV fcM j LOAD A WITH DATA 1 
I NX D } POINT D£ TO OOB(6> FOR FORMAT PACK REVERSE 
STAX D ; STORE DATA AT (DE) 

OCX D i DECREMENT DC TO D0B(5) FOR NEXT BYTE 

INX H i INCREMENT HL 

NOV UN ; LOAD A HITH DATA 2 

STAX 0 i STORE AT (DE) 

RET ) RETURN TO FORTRAN 


j SUBROUTINE AIOITZ 
) 

99 : AIOITZ INITIALIZES THE I/O INTERFACES 

i 

; INPUTS: NONE 
> OUTPUTS: NONE 
i CALLS: NOTHING 
i DESTROYS: R,r/F'S, BC, DE, HL 
j MODIFIES: NOTHING 
; ‘VERSION: 18 


AI0IT2: 

DI ; DISABLE INTERRUPTS 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


ISIS-!! 9006/3085 MACRO ASSEMBLES. V3.0 VCSIOD PAGE - 


loc oej 


LINE SOURCE STPTENENT 


0028 3EO0 
0030 D307 
003F 0298 
0041 0309 
0043 030ft 

0045 2EFF 
0C47 0203 
O049 3SF9 

0046 0200 


3340 CD5A98 C 

0950 CD6F99 0 


0953 0835 
0055 0633 
0957 0632 

9059 C9 


0056 3E0F 
0050 0302 
905E 3E07 
0960 0382 

0062 3ECF 
0964 0383 
9066 2EFF 

0063 0303 
906ft 3E07 
0060 0383 
00SE C9 


0083 

0082 
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119 : 

111 MYl (10 j LOfiO ft REG IIITVI 9 

112 OUT 07 J PfiNEL 

113 OUT 03 j CflSSETTE 

114 OUT 09 > CASSETTE 

115 OUT MH J CflSSETTE 

116 WI ft&FFH S LOAD ALL ONES (NEGATIVE LOGIC) 

117 OUT 03 1 ARM VfiLYES 

118 WVI A.0F0H i SEND 06001111 

119 OUT 06 ; P<m 
129 t 

121 1 CALL ft/D INITIALIZE 

122 CALL flOCITZ 

123 J 

124 J CfiLL CLOCK INITIALIZE 

125 Cftll CLKITZ 
125 ; 

127 > SET UP MS 

128 IN 635H ; SET MBS TO OIS COUNT 

129 IN 033H f LATCH DATA 
139 III 032H ) RESET SYSTEM 
131 1 

132 RET j RETURN 

133 / 

135 ) 

136 ; SUBROUTINE ADCIT2 

137 j 

138 ! AOCITZ INITIALIZES THE DATA TRANSLATION A/D 

139 ; 

140 AOCITZ: ; ENTRY POINT 

141 i 

142 MVI ftBFH ) LOAD PORT ft NODE 0 

143 OUT MPXQCP i MULTIPLEXOR C4JTPUT CONTROL PORT 

144 HVI A.07H J DISABLE INTERRUPT 

145 OUT IPXOCP J MUX OUT CONTROL PORT 

146 HVI fteCffl J LOAD PORT B, MODE 3 

147 OUT MPXSCP J MULTIPLEXOR STATUS CONTROL PORT 

148 MVI ftOFFH J SET FOR INPUT BITS 

149 OUT MPXSCP; 

150 MVI A ,07H i DISABLE INTERRUPTS 

151 OUT MPXSCP 

152 RET ; RETURN 

153 i 

154 MPXSCP E0U 083H J 83 HEX FOR HPX STAT CONTROL FORT 

155 MPXCCP E2U 982H ; 82 HEX FOR IPX OUT CONTROL FORT 

156 J 

158 ; 

159 1 SUBROUTIIE CLKITZ 
169 ; 

161 i CLKITZ INITIALIZES TH TIME? ‘.HITS HOFWL OPERATION 


162 ; 

163 CLKCNT ECO 023H i CLOCK CONTROL p ORT 

164 ; 


0023 



ISIS-ri 5080/8085 MACRO ASSEMBLER, YZ. 0 


VCSIOD PAGE 4 


ORIGINAL PAGE IS 
OF POOR QUALITY 


LOC OBI 

Mff :em 

0071 D«S5 

0072 3E34 
0075 D323 
0O77 3E71 
0973 D320 
0975 3E02 
007D D320 

997F 2E74 

9081 0223 

9082 3E64 
0095 D321 
0937 SEN 
0083 0321 

908B 3E54 
0090 032? 
905F 3EE8 
9991 0322 
0032 2E93 
0035 0322 

0937 2E07 
0039 0325 
S09B C9 


609C 16FF 


003E 2E09 
90fl0 0206 
5982 2ES9 
0084 0205 

O0PS C€04 
9083 If 


LINE SOURCE STflTEHENT 

165 CLKITZ: HVI ; CLERK fiCC 

166 OUT 25H ; STOP TIMER GATE U,L2 

167 : INITIALIZE TIMER 0 TO 1 MSEC 

168 MV! A,34H ; 00110100 CTL 0,L-M,HODE 2. BIN 34H 

169 OUT CLKCNT ; CONTROL PORT 

170 MYI A71H ; LSB OF 0271H 

171 OUT 20H 1 COUNTER PORT 0 

172 MI fl»02H ; MSB OF 0271H 

173 OUT 20H ; COUNTER PORT 0 

174 ) INITIALIZE TIMER i TO 100 MSEC 

175 MI ft. 74H ; 01110100 CTL LHLMODE 2, BIN ?4H 

176 OUT CLKCNT s CONTROL PORT 

177 MI A*064H J LSB OF 0064H 

178 CUT 21H ; COUNTER PORT 1 

179 HVI A.00H j MSB OF 6064H 

180 OUT 21H ; COUNTER PORT 1 

181 i INITIALIZE TIMER 2 TO 1 SEC 

182 HVI A.0B4H ; 10110100 CTL 1» L-M, MODE 2, BIN B4H 

183 OUT CLKCNT ) CONTROL PORT 

184 MYI Aj 8E8H /LSB Of 02E8H 

185 OUT 22H ; COUNTER PORT 2 
*186 MYI A»03H ; MSB Cf 03ESH 

18? OUT 22H ; COUNTER PORT 2 

188 ; START COUNTERS 

189 MYI A>07H j 0HLGATE i>l2 
130 OUT 25H ; GATE PORT 

191 RET / RETURN 

192 i 

| t T T TT TT r-T-F™ ^ 

194 ; 

195 ; SUBROUTINE AIOCDU <BUF) 

1$6 i 

197 J AIOCDU READS DATA FROM THE C/D PPTEL PORT 04 

198 t 

193 i INPUTS- BC POINT TO WORK BUFFER 

209 s OUTPUTS' NONE 
201 i CALL?: HSEC2H 

292 s DESTROYS: flF/F'S.DLHL 

203 ; MODIFIES: /WORK/ 

204 i VERSION i 0 

205 ; 

206 AIOCDU: 

287 MYI D,0FFH ; SET D AS FLAG TO FF 
208 i FRONT PANEL I/O DRIVE? 

289 ; CLEAR LATCHES. READ FORT AND CLEAR LATCHES 

210 J NOTE : LATCHES INVERT SWITCH DATA LINES TO BUS 
211 ; 

212 CDURD- ; LOOP ENTRY POINT 

213 MYI A> 90H ; LOAD 08000008 INTO A 

214 OUT CDUCLR ; SEND CLEAR PULSE 

215 MYI Aj080H ; TURN ON LATCH BIT 'ONLY 

216 OUT CDUCLR ; REMOVE CLEAR PULSE 

217 ; 

218 IN CCUINP ; READ C,D PORT 

219 CM ; INVERT SITS FROM INTERFACE -TEG LOGIC'' 
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ORIGINAL PAGE IS 
OF POOR QUALITY 

ISIS-II 0680/5035 HERO ASSEMBLER, ¥19 VCSIOO PAGE 5 


LOC OBJ LINE SOURCE STATEMENT 

00A9 E67F 220 UNI 7FH i MASK NON BCSISTfiMT BIT 
221 J TEST IF RUN NODE OR CALIBRATE 
00RB 5F 222 MOV BA i SAVE INPUT IN E REG 

MAC E504 222 flNI 04H i TO WITH 06006130 TO SEE RUN BIT 

00AE PE04 224 CPI 04H ; TEST IF ON 

S6B8 CACB60 C 225 JZ CDUGO j TEST IF EQUAL (ON) TO JUMP TO GO 

226 J CALIBRATE MODE 

66B2 78 227 HOV A,S > RESTORE INPUT 

0664 E66B C28 fiNI 0BH ; 06061011 TEST NXT,RSLAC-J BITS FOR ON 

0666 FESB 229 CPI 66H i 

66B3 CPC100 C 220 J2 CCTEST l IF = 0 SET ZERO FLAG SO JUMP TO TEST 

221 t 

6668 1606 222 HVI 0,0 j CLEW FLAG IN 0 

00SD 63 222 MOV RE i SAVE NON ZERO INPUT IN H REG 

00BE C29E00 C ’ 224 JMP CDURD ; GO BACK AND CONTINUE READ 
, 235 j 

6001 7A 236 COTES',: HOV FLD i TEST FLAG IN D 

86C2 FE09 237 CPI 6 

96C4 CACA60 C 233 JZ CDUGOX ) IF FLAG CLEARED GO TO UNPACK BITS 

00C7 C35E00 C 239 JUP CDURD 

240 ; 

06CA 5C 241 CDUGOX: MOV E,H MOVE DATA TO E IF CAL MODE 

242 CDUGO: 

00CB 7B 243 HOV R,E ; RESTOPE INPUT BEFORE 0 

0SCC F5 244 PUSH PSH j SAVE A TO FLAGS 

60CD C5 245 PUSH B ; PUT ADDRESS IN HL 

00CE El 246 POP H ! VIA STACK 

60CF 16FF 247 MVI 0, 0FFH ; SET D TO Jliiilii . TRUE 

06D1 1E60 248 MVI &0H ; SET E TO 00000000 . FALSE 

60D2 9E38 249 MVI C,8 i LORO C HITH 8 COUNT 

0905 IF 258 CDU05‘ RAR i ROTATE ACC INTO CARRV (RIGHT) 

0906 DADD" C 251 JC CDUTRU j IF BIT ON GO TO TRUE (CARRY ON (CMA) SEE MOTEO 

060*9 73 252 NOV HE ; STORE . FALSE. IN FfRftV(I) 

06DA C2DE00 C 253 JMP CDUDCR ) GO TO DXINT TEST 

00DD 72 254 CDUTRU: HOV HO i STORE . TRUE. IN APRrtY(I) 

80DE 60 255 CDUDCR: OCR C i DECREMENT COUNTER C 

06DF Cfit'600 C 256 JZ CDLOOfl ; DONE ALL eiTS 
06E2 22 257 INX H { HL = KL+i 

06E3 C3O500 C 258 JMP COU05 I LOUP BACK FOR NEXT BIT 

259 CDIJDON: 

06ES Fi 266 POP PSH ; RECOVER INPUT BITS 

00E7 E664 261 AN! WH ; KEEP FUN BIT 

06E9 FEW 262 CPI 04H ; TEST IF RUN MODE 

06EB OAF-108 C 263 JZ CDUM.0 ; SKIP WAIT IF RUN NODE 

G6EE CD0000 E 264 CALL K5EC2H ; WAIT FOR SNITCH CEBOLWTE 

265 CDUW0: 

06F1 E5 266 PUSH H s PUT ADDRESS BACK IN 

08F2 Cl 267 POP 8 i EC VIA STACK 

00F3 C? 263 PET . RETUL‘1 TO FORTRAN 

269 ! 

6068 270 CLTEST EQU 06BH .« MASK ^OR CfiLIEFfTE TEST 

00O4 271 COUINP EG'J 04H ; PORT 4 FOP C/0 INPUT 

«6F 272 COTEST EQU 06FH i MASK FOR PUN TEST 

6006 273 CDUCLR EQU 06H s PORT 6 FOP CEHLI LATCH CLEAR 

4 80 274 ; 



Original page is 

OF. POOR QUALITY 


tsiHt m?®* m tssa * s ' 


V2.6 


VCS100 PWE 


ICC OB' 


UNE 


re 

27? 


5 QU 6 CE 


8 


5 4 : 


273 

279 

230 

m 




m 


Sgg?Sf *"»*» •***•“ 

srrs-MflL sms 

HSEC2P E 6630 


USER SWBOIS 
c^05 C 033C 
COTES? o 00 C 1 
CKXiO C 63CS 
CLTS5I ft 003B 
M5EC2B E 6060 


nOO&O COOif 
COTEST ft «WF 
tWK'H C Wffl 
WXDfil, ft 0334 
V1BIT50 C 0023 


fiOCIT2 C 605ft 
tt«B C 0605 
CCISIHP ft 6664 
{SPXDftS ft 6635 
tffticc c 6623 


ftGEUT C 062? 
>;wctP ft 6*- 
C 6 DS 6 ewes 

HPXOCP ft 6032 


ftUHv C 3660 
CCtt ‘16 C 03*1 
CfcUTW C 00^' 
V&m ft 668® 


ftlCCW t 009 C 
CCijKR C 600 E 
CU'CHT ft 0023 
MP>iSCP ft 6033 


ftiOlU c Wg 

CNJOOH C 60 E« 

CUeiTZ 6 00 €F 
MpXSl? ft 6661 


ftS&'BLV WP1ETE. ERWRS 
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*SM80 -Fi' INTRPT ASH NACR0PILE WN5 


ORIGINAL PAGE IS 
OF POOR QUALITY 


!5i5-n &S&EQ8 MACRO ASSEWLER, V3 0 IHTPPT PAGE i 

‘.X OW LINE SOUFCE STATEMENT 

1 ; 

2 NAME INTRPT 

3 » 

4 PUBLIC INTRPT* UITRD5< INTREN 

5 i 

5 EXTRN QUTCAS 

7 i 

8 J CLOCK INTERRUPT SERVICE ROUTINE 

$ i 

10 CSEG 

11 ; 

0 i 

14 i SUBROUTINE INTRPT 

15 i 

IS ; INTRPT IS THE CLOCK INTERRUPT SERVICE ROUTINE 

17 i 

18 i INPUTS NONE 
13 J OUPUTS- NONE 
20 J CALLS' OUTCRS 



21 i 

8E5TR0VS: NOTHING 


22 i 

MODIFIES: CLOCK STATUS AND COUNTER BYTES 


23 i 

VERSION- LO 


24 i 



25 INTRPT: 

WOO F5 

26 

PUSH PSN f SAVE fcF/F'S 

OOfri C-B24 

2? 

IN 024H > READ CLOCK DATA FAST 

wo: E5 

28 

PUSH H » SAVE H. 

0004 05 

29 

PUSH 8 * SAVE DE 

0085 C5 

30 

PUSH B i SAVE K 

ww rj 

31 

32 i 

33 . 

PUSH PSN i SAVE INPUT FROM CLOCK 


1 

- INTERRUPTS ARE PISABLEPjREAD CLOCK 


34 j 



35 i 

i CLEAR BVTE FLAGS 

0007 3EO0 

36 

MVI A.0 i CLEAR ACC 

0009 21C220 

37 

LX I IL20C2H i PQIHT M TO FIRST FLAG 

OOOC 77 

38 

MOV H.A ,< CLEAR FLAG 

0008 23 

39 

INXH 

WOE 77 

40 

WV HtA i CLEAR 100 FLAG 

088F 23 

41 

I NX H 

0010 77 

42 

MOV ft A i CLEAR SECOND FLAG 

0011 FI 

43 

POP PSN i GET INPUT BACK IN A REG 

0012 2F 

44 

CMA i INVERT BITS TO GET LON DATA ACTIVE « i 

0013 E50? 

45 

ANl 07H . NRSX UPPER 5 BITS 

0015 OF 

46 

RRC i SHIR 1 SEC LINE INTO CARRY 

0016 F5 

47 

PUSH PSN ; SAVE Ai F/F'S 

0017 8(5700 

C 48 

CC MILSEC : TEST FOR BIT SET IN CPRRV 

Wlfl FI 

4? 

FOP PSN ; RESTORE A AFTER CALL 

0019 OF 

50 

RRC ■ SHIR 100 MSEC BIT TO CARRY 

001C F5 

51 

PUSH PSN • SAVE A-F. F’S 

0018 8C4N0 

C 52 

CC HUNORO i TEST FOR BIT SET 

0020 Fi 

53 

POP «N 

0021 OF 


SRC : SHIR 1 MSEC BIT TO CARRY 
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I5IS-U S03O.B085 MftORO ASSEMBLER, VI 0 IHTRPT PAGE 

LOC OBJ LINE SOURCE STATEMENT 



PAGE f$ 

Quality 


0022 W24O0 C 


0025 0924 
0027 E607 
0029 FE07 
0025 C22500 C 

O02E Cl 
002F 01 
0820 El 

0031 Fi 

0032 FB 
8833 C9 


8024 21C420 
0827 2EFF 
0039 77 
0028 23 
002B 3E01 
0020 86 
002E 77 
0O2F 23 
0840 3EO0 
8042 SE 
0643 77 

0044 3E00 
9046 0325 
0048 3E07 
084fi 0325 
8040 C9 


0040 21C320 
0050 3EFF 

0052 77 

0053 CO0600 E 
0956 C9 


0057 21C220 
005fl 3EFF 
085C 77 
0850 C9 


55 CC ONESEC > TEST FOR BIT SET 

56 t 

57 EXIT: 

58 ; NflIT FOR LINES TO GO HIGH AGAIN 

59 IN 024H 
68 ANl 07H 

61 CPI 07H 

62 JNZ EXIT 

63 1 

64 POP B J RESTORE BC 

65 PCP 0 J RESTORE OE 

66 POP H ; RESTORE HL 

67 POP PSM i RESTORE aF/FS 

68 s 

6? El i ENABLE INTERRUPTS 

79 RET i RETURN TO MONITOR CALLING POINT 

71 J 

7^ ONESEC 1 ' 

73 LXI H.26C4H j SET HL TO SECOND FLAG BYTE 

74 MVI a0FFH ) LORD fi HITH llilllll 

75 MOV afi j SET FLAG EY]E 

76 I NX H > POINT H.TO COUNT BYTE 

77 mvi aeiH } SET fi TO 1 

73 ADO M t fiOD COUNT TO fiCC 

79 MOV a fi / STORE COUNT EfiCK IN MEMORY BYTE 

88 INX H t POINT TO MSB 

3i mvi aeen j ado zero rmd carry to hsb cowit 

82 ADC M ! ROD CARRY TO COUNT MSB 

83 MOV aa J SAVE IT AHAV 

84 J 

85 mvi ao 

86 OUT 25H s SET GATE TRIGGER LON-HIGH TO SYNCPONIZE 

87 MVI a07H 

88 OUT 25H 

89 RET 

90 i 

ch[ HUNDRO* 

92 LXI a28C3H j SET HL TO 160 MSEC FLAG BYTE 

93 MVI aGFFH f SET fiCC TO 11U11.U 

94 MOV afl i SET FLAG BYTE 

95 CfiLLOUTCAS 

96 RET 

97 ; 
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15IS-II 8580/6055 MACRO ASSEMBLER, Y3.0 IN7PPT PAGE 


ORIGINAL PAGE IS 
OF POOR QUALITY 


lCC 2W 


095E F3 
095F C9 


0660 3E68 
6962 36 
9663 F3 
0064 C9 


LIME SOURCE STATEMENT 

110 ; INPUTS- W. 

111 ; OUTPUTS: HONE 

112 ; CALLS' NOTHING 

113 ) DESTROYS: NOTHING 

114 i MODIFIES: INTERRUPT MASK FOR CPU 

115 i VERSION: 1 0 

116 j 

117 INTRDS: 

118 DI 

119 RET i RETURN AFTER DISABLING INTERRUPTS 

120 i 
122 ? 

123 j SUBROUTINE IHTREN 

124 J 

125 i IHTREN ENABLES THE CPU INTERRUPT LINES 

126 i 

127 INPUTS: NONE 

128 J OUTPUTS: NONE ' 

129 } CALLS: NOTHING 
138 j DESTROYS: A,F/T'S 

131 ; MODIFIES: CPU INTERRUPT MASK 

132 j VERSION: L0 

133 j 

134 IHTREN: 

135 MVI ft»98H ; LOAD A WITH INTERRUPT MASK 

136 SIM ; SET INTERRUPT MASK 
127 El J ENABLE INTERRUPTS 
138 RET i RETURN 

129 ; 

148 END 


PUBLIC SYMBOLS 

INTRDS C 005E INTFEN C 6060 1NTRPT C 0800 

EXTERNAL SWBOLS 
OUTCAS E 8000 

USER SYMBOLS 

EXIT C 8625 HUNDRD C 094D INTRDS C 005E INTREN C 0060 INTPPT C 0000 fULEEC C 0657 
OUTCAS E 0008 

ASSEMBLY COMPLETE, NO ERRORS 


ONESEC C 6034 
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*SH» c i DEFALT. ASM MACROFILE MQC05 


ISIS-t! 90SO/9CE5 MACRO ASSEMBLER* VJ. 0 DEFALT PAGE 


ORIGINAL PAGE IS 
OF POOR QUALITY 


IOC OBJ LIKE SOURCE STnTEHSNT 

1 ; 

2 ) SUBROUTINE DEFALT 

3 ; 

4 i DEFALT IS A TABLE OF OPERATION DEFAULT DATA IN ROM 

5 J 

7 i 

3 i CONION/OEFAU/ DEFIOF, DEFCTV, DEFPRM DEFPNT. ICMPNL MNEC. IlMXiP" 
9 i 

10 i DEFIOV(tO) LOG-H 

11 i DEFPF1U20) INT*2 

12 ; DEFCTV(IB) LOGti 

13 ; DEFPNT(8) INT+2 

14 ) ICMPNK10) INT*2 

15 5 NMXYECU5) IMT*2 
15 ; NHXIPX<6> INT*i 

17 i 

18 NAME DEFALT 
13; 

20 PUBLIC DEFALT 

21 ; 


0E5O 


22 

ORC 

i 0BSOH 




23 

; 





24 

DEFALT' 

j PUBLIC SYMBOL ENTRV POINT 

0850 

FF 

25 

DEFIOV: DB 

CFFH J lOFYEC(i) = SEN 

0B5i 

F 

26 

DB 

0FFH ; 

DFD 

0852 

FF 

27 

DB 

OFFH ) 

PCF 

0B53 

F 

28 

D8 

0FFH i 

LCF 

0E54 

FF 

29 

ce 

0FFH i 

LAP 

0855 

FF 

30 

DB 

0FFH J 

RAP 

0855 

FF 

31 

D6 

0FFH ; 

CID 

0B57 

FF 

32 

DB 

0FFH J 

PKF 

0853 

00 

33 

08 

000H J 

PKR 

GB5? 

F 

34 

DB 

OFFH j 

VCF 

0558 

FF 

35 

D8 

OFFH i 

VCR 

0858 


35 

DB 

OFFH t 

VOT 

085C 

FF 

37 

DB 

OFFH i 

DSP 

0850 

00 

38 

DB 

00H ; 

KEY 

085E 

00 

39 

DB 

00H : 

CAS 

085F 

00 

40 

DB 

08H ; 

CRT 

0850 

t-r 

41 

DB 

OFFH ; 

CDU 

0851 

00 

42 

DB 

O0H t 

DUMMY 

0852 

00 

43 

DB 

80H ; 

DUMMY 

6853 

00 

44 

DB 

00H ; 

DUMMY 



45 

1 





45 

DEFPRM* i 

/■DEFPRM/ ; INT*2 PARAMETERS 

0854 

0003 

47 

DU 

0800H 

; MAX DRUM YALUE ONAX 

0855 

00FE 

48 

DU 

-200H 

; MIN DRUM VALUE DHIN 

0883 

0?00 

4? 

DU 

? i ERROR LIMIT COUNT FOR TRIP MODE 

0B6A 

POOO 

50 

DU 

0F0H 

? CID STS? 

085C 

0000 

51 

DU 

0 J 

PICK AYEFAGINO NUMBER 

0B5E 

F000 

52 

DU 

0FSH 

: PICK STEP 

0370 

5000 

53 

DU 

50H » 

FONT DEAD BAND 

3672 

5000 

54 

D(4 

58H 

» REAR DEAD BAND 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


ISIS-! I S060/80S5 HfiCPO ASSEMBLER^ Y3.0 PEFfiLT PROS 2 


LOC 

OBJ 

LIME 



SOURCE STATEMENT 

OB^ 

0100 

55 

DU 

1 

j LENGTH OF EICKOF PPMS 

oe~5 

>:oo 

56 

Ml 

54 

i RADIUS OF DRUMS 

8878 

0300 

57 

DM 

10 

; LAST CUT POSITION 

0678 

1100 

58 

Ml 

17 

i PRESENT CUT POSITION 

087C 

8000 

59 

Ml 

0 

1 CIO POSITION 

0B7E 

6800 

60 

Ml 

68H 

1 1 FTRLOC 

0880 

0100 

61 

DU 

1 

i DFDFCT 

0682 

0100 

62 

DU 

1 

1 PSTP 

0684 

E800 

63 

DU 

0E0H i FRONT PBIftS 

0686 

0000 

64 

DU 

0 

i REflR DRUM BIftS 

0688 

0000 

65 

DU 

0 

i SRKVfiL 

068ft 

0000 

66 

DU 

8 

> TRGFCT 



67 

j 



acjAr 

TOOV 

FF 

68 

DEFCTV* 

D8 0FFH ; LOG+i CNHVEC(l) 

088D 

F 

69 

D6 

0FFH ) LCF 

0886 

00 

70 

DB 

00H 

1 J PKF 

eeop 

00 

71 

DB 

000H i PKR 

8690 

F 

72 

08 

0FFH s PDF 

0891 

F 

73 

08 

0FFH i VCF 

0392 

F 

74 

M 

OFrl i VCR 

0893 

F 

75 

DB 

0FFH J FT 

0894 

F 

76 

C8 

OFFH j RER 

0895 

F 

77 

D8 

0FFH i OUT 

0696 

00 

78 

08 

0 ; 

DUMMY 

0B97 

00 

79 

DB 

0 i 

DUMMY 

0698 

00 

80 

DB 

0 ; 

DUMMY 

0899 

00 

81 

C8 

0 ; 

DUMMY 

0899 

O0 

32 

DB 

0 i 

PUfflY 

0999 

00 

83 

re 

0 i 

DUMMY 



34 

j 



889C 

8008 

85 

OEFPNT: 

DU 0 i M*2 

0B9E 

0000 

36 

Ml 

0 


09flO 

0000 

87 

Ml 

0 


08fl2 

0000 

83 

DU 

0 


0804 

0000 

89 

Ml 

0 


eefio 

0000 

99 

DU 

0 


0Bfi9 

0000 

91 

Ml 

0 


OGflfl 

0000 

92 

DU 

0 




93 

j 





94 

i /OPPfiRM/ 



95 

) 



OBftC 

0700 

96 

ICHPNT: 

OH 7 i INT+2 U> 

08fiE 

0400 

97 

DU 

4 


0660 

0800 

93 

Ml 

8 


0862 

0900 

99 

Mi 

q 


0BB4 

0300 

100 

DU 

3 


<JD 

CO 

s 

0800 

101 

Ml 

10 


0868 

0800 

102 

DU 

li 


0BBfl 

1209 

103 

DU 

13 


0B6C 

1309 

104 

DU 

19 


0886 

1400 

105 

DU 

20 




106 

i 



08C8 

0900 

107 

NHXVEC- 

Ml 3 j INT+2 SEN 

08C2 

0900 

198 

ou 

3 f 

ERR 

0BC4 

0090 486 

139 

pu 

0 < 

SIR 



ORIGINAL l-VUa. tfi 

OF. POOR QUALITY 


1SIS-II 9mms MACRO ASSEMBLER# vj. 0 


DEFALT PAGE 2 


LOC OBJ LIME SOURCE STATEHENT 

98 C$ 0709 110 WJ 7 j I PH 

0SC3 9999 ill OH 0 

0BCA 930O 112 M 8 i 05P 

eecc 1400 113 DH 20 J I OF 

0BCE 0A09 114 OH 10 i Cm CTV 

0BD0 0803 115 DH 8 I DBG 

9BD2 0300 116 DH 0 j C8F 

9604 3000 117 DH 128 ; TAP 

0BO6 0800 118 DH 8 J KIB 

0808 1400 118 OH £0 ) PRfl 

OeOfl 0A00 129 DH 10 ) OPS 

320C 0830 121 DW 8 i PNT 

0BOE 0008 122 DU 0 J Wm 

123 j 

0BE0 11 124 NMXIPX: I» 17 i NHXIPX(l) IOF VECTOR PATCHING 

0BE1 0fl 125 06 10 ; CONTROL VECTOR PATCHING 

06E2 08 126 08 3 > OPERATION CONTROL PATCHING 

0BB 14 127 08 20 i PARAMETERS TO BE RESET 

0BE4 91 128 06 1 j DATA INITIALIZE # CLEAR CMOS BUFFERS 

06E3 20 123 OB 32 ; SENSOR TABLES 

0BE6 0R 130 DB 10 J MOS CONTROL WORDS 

131 # 

0CS0 132 ORG 0C30H 

133 J 

134 DEFOPS: 

135 i COMMON /DEFOPS/ C€FOPS(10> 

0C39 0298 136 DH 2 J OPMODE 

9C92 9190 137 DH 1 I HODECT 

0C?4 0180 138 DU 1 j RNGMSK 

0C96 0199 139 DH 1 j SENDEL 

9C9S 9000 140 CH 0 J RATE CHECK 

0C3A 0090 141 OH 0 / STATUS 

0C?C 9D90 142 DH 13 ) FDVGN 

0CSE 9032 143 CH 390H ; FDCAL 

OCAO 9600 144 DH 6 i RDVGN 

0CA2 0003 145 DH 30OH ; RDCfiL 

146 J 

0CA4 147 ORG 0CA4H 

148 ; 

148 OEFMOS: 

150 j COMMON rtEFHOS/ DEFMOS(10) 

0CA4 0969 151 C4I 6090H i MAXSIT 

0CA6 0990 152 CH 0 i STRTPT 

6CA8 0000 153 OH 0 t STEPSZ 

0CAA 90A0 154 DH 0ft009H J IEGMAX 

0CAC 0069 155 CH 6909H ; POSMAX 

0CAE 9990 156 CH 0 j LSTPMT 

0CB0 0609 157 DH 6 i ISNIND 

0CB2 0099 158 OH 0 ; ISHPOS 

9CE4 1801 153 DH 9U8H ; CIDMAX 

0C86 FS09 160 DW 9FAH ; CIDNIN 

161 J 

162 DID 
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ISlS-!i S666/86S5 (®CPO fiSSEffilS?. VI 0 


DEFALT FflE 4 


ORIGINAL PAGE IS 
OF POOR OVALITY 


PJEUC SWBOiS 
DEFALT A 0E50 


£ SPSHfl. SWBQLS 


USER 5VT1E0U5 
DEFALT ft 6850 
ICliPHT A SBfiC 


DEFCTY ft 063C 
NNXIPX fl 8BE0 


DSFIOV A 6650 
HHXVEC A nee 


DEFftOS ft 0CR4 


DEFOP? ft CC90 


DEFFNT ft OSC 


ASSS-BLV COftPLETEj NO ERRORS 


OEFPRH ft 6664 
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9Sm 'Fi' TABLES. ASM WCRCFILE H0085 


ISIS-II 8689/8089 WHO ASS ENBLEH V3. 8 TABLE PACE 


ORIGINAL PAGE is 
OF POOR quality 


LQC OBJ LIKE SOURCE STATEMENT 


1 NftHE TABLE 

2 J 

3 PUBLIC ASCTAS 

4 i 

5 f n+t*** * ** x*&mwv******4&er- 


6; 

7 i COMNON /HESTOB/ 

8 i 

9 } DATA INITIALIZATION OF ASCII TABLES 

10 i 

0fi00 ii ORQ 0A00H 

12 i /HESTAB/ STARTS RT 0A00 HEX 


5A00 2-1534542 
OA04 24444244 
0A83 2450434* 
0A0C 244C4346 
0A10 244C4150 
0R14 24524150 
0A13 24434344 
BfttC 24504B46 
0A20 24504B52 
6R24 24564346 
0A28 24564352 
0R2C 24564F54 
0A30 24445350 
8R34 2446455? 
0R38 24434153 
0A3C 24435254 
0A40 24431455 
0A44 24465254 
0R48 24524552 
6A4C 24434F54 


13 i 

14 RSCTfiB: 

15 } ALLOCATION OF ERSMES(20> CHPPPCTEP-+4 PFPAV 

16 K '*SEN' 

17 re *m' 

18 re 'IPCF' 

19 re '*LCF' 

28 re '$uf 

21 re 'fRAP' 

22 re 'SCID' 

23 re 'JPKF' 

24 re 'iPKR' 

25 » '*VCF' 

26 OB 'WCR' 

27 06 'WOT' 

28 06 'iDSP' 

29 06 'IKEY' 

30 re 

31 re 'SORT' 

32 re '1COU' 

33 Dfi 'IFRT' 

34 re 'fKER' 

35 re 'tear 

36 ) 

37 j ALLOCATION OF DeGHE5<20> CHARACTERS AREffr 1 



38 J 

0A50 44425547 

39 

M 'DBUG' 

0A54 4F35543F 

48 

06 'OUT?' 

0A58 49JE583F 

41 

re 'up?' 

0P5C 4441543F 

42 

re 'OAT?' 

0A60 49545A3F 

43 

re 'iTz?' 

CA64 5441503F 

44 

re 'Tap?' 

0A68 492F4F3F 

45 

re 'i/o?' 

0A6C 434C4B3F 

46 

D6 'CLK?' 

0A70 4O45403F 

47 

re 'HEN?' 

0A74 5244593F 

48 

re 'VENT 

9A78 454E442F 

49 

re 'ehp' 

0A7C 53595320 

50 

re 'svs-' 

0AS0 504F5254 

51 

re 'POST' 

0A84 43J04E4C 

52 

06 'CHNL' 

8A88 20555020 

53 

DB ' UP ' 

SffiC 444F3?iE 

54 

re 'CONN' 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


I5IMI 9O00/9885 MACRO ASSESLEil V3. 0 TASlE P*2E 2 


IOC OBJ LINE SOURCE STATEMENT 

0A90 40414E2D 55 CB 'HAN-' 

0A94 4WF4445 56 DB 'MODS' 

9A98 57*24954 57 DB 'NRIT' 

6A9C 414452 IF 53 DB 'ADR?' 

59 J 

60 ) ALLOCATION OR RUNMES<20> CHARACTER*4 RRRfW 
61 ; 

0fifi0 3F492F4F 62 DB '?I/0' 

0AA4 3F434E54 63 DB '?CNT' 

OfifiS 3F4F5053 64 DB 'TOPS' 

9AAC 3F565242 65 DB '?W9' 

0AB3 2A52554E 66 DB '*RWH»>' 

0AB4 204F4B2A 

0488 2A444542 57 DB '*OEEUG *' 

OfiBC 55472028 

OflCS 3F43414C 68 DB '7CAL5RAT' 

0AC4 42524154 

9ACU 2A294841 69 DB '* HALT *' 

OfiCC 4C542028 

0AD0 JD41534B 70 DB 'MASK' 

0AIM 5941524P 71 DB 'FARM' 

OflD8 45525220 72 DB 'ERR ' 

0flDC 252D5354 73 DB '/I-STOP-X' 

0AE0 4F302P25 

0AE4 28204553 74 DB '*-EXlT-*' 

9AE8 49542D2A 

OPEC 20232329 75 DB ' It ' 

76 ; 

77 i ALLOCATION Cf DSPC0DEU8) CHARACTER* AF#AV 

78 i 

0AF0 24282326 79 DB '**4*7.?? V' 

0PF4 25403F20 
0F3 3D2F 

88 ; 

SI J /ME5TB2/ STARTS AT OfiFfiH 

82 J 

83 J ALLOCATION OF PARt£S<20> CHARATER*4 

84 ; 


OAFfi 44404158 

85 

DB 'WAX' 

i MAX DRUB VALUE 

0AFE 444D494E 

86 

DB 'DNIN' 

i MIN DRW VALLE 

8B92 45524C4D 

87 

DB 'ERLM' 

« ERROR LIMIT 

0696 43445354 

88 

DB 'COST' 

; CID STEP 

0B0A 50415645 

S9 

DB 'PAVE' 

S NUMBER Of PICK SIGNALS TO AVERAGE 

OBOE 59455350 

90 

DB 'PKSP' 

j PICK STEP 

0812 44424446 

91 

DB 'CBOF' 

i FRONT DEAD BAND FOP CONTROLLER 

0616 44424452 

92 

DB 'DBOR' 

j REAR DEAD BAND 

681A 4C45JE47 

93 

DB 'LENG' 

; LENGTH OF ARM 

0Bi£ 44524144 

94 

DB 'WAD' 

i DRW RADIUS 

0B22 4C435853 

95 

DB 'LCPS' 

i LAST CUT POSITION 

9B25 58435053 

96 

DB 'POPS' 

i PRESENT CUT POSITION 

052A 42445053 

97 

DB 'COPS' 

i CID POSITION 

062E 464C4F43 

93 

DB FlOC' 

) FRONT TO REAR DISTANCE 

0 B32 44484354 

99 

DB 'DFCT' 

i CFD FACTOR 

0836 44535450 

100 

DB 'DSP' 

i DfD STEP UPDATE FOR CMOS 

9S3A 46424153 

101 

DB 'PSAS' 

i FRONT DRW BIAS 


430 



ISIS-II ?080/50$5 MACRO ASSEMBLER- Y2,0 


TABLE PAGE 


LOO OBJ 

0B2E 52424153 
0B42 534B5255 
0B46 54524740 

0040 


9040 4D4P4445 
0044 52414E47 
9046 53444540 
0C4C 52415^5 
0CS0 53545553 
0C54 46445047 
0058 4044434*: 
©CSC 52445047 
0C60 52444340 
0064 20202020 

0003 


0CC8 40585354 
0CCC 53545054 
0CD0 53505350 
0004 4E474D58 
0CD8 50534058 
9CCC 40535054 
9CE0 534E4944 
9CE4 534E5053 
0CE8 43*144058 
0CEC *124*WNE 
0CF0 20202020 
0CF4 29292020 
0CF3 20202029 
0CFC 20202920 
0000 20202029 
8004 20202029 


PUBLIC SYMBOLS 
ASCTAB A 0809 

EXTERHPL SYMBOLS 


op »i NAL PAGE f S 
0F * 00 « QUALITY 


LIME SOURCE STATEMENT 


102 OB 'RBAS' i REAR WIIH BIAS 

103 OB '5KRV' ) RATE CHECK PARAMETER 
184 08 'TRGF' i TRIO FACTOR 

105 ) 

loo GRaec4«f 

107 } 

108 i /HESTB3/ STARTS AT 0C40H 

109 * 

110 J ALLOCATION OF OPSM£S<10> CHARACTERS 


Hi ; 

112 ce 'MODE' 

113 OB 'RUNG' 

114 OB 'SDEL' 

115 CB 'RATE' 

116 OB 'STUS' 

117 OB 'FDYG' 

118 CB 'FDCL' 

119 OB 'ROW' 

120 DB 'RDCL' 

121 06 ' ' 
122 i 


} MODE MODE 
j RANGE CHECK 

i OPERATION SENSCf DELAY FLAG 
J SENSOR RATE TEST 
j STATUS HORO 
; FFONT DRUM GAIN 
i FRONT DRUM CAL 
5 PEAR [flirt GAIN 
; REAR DRUM CAL 


123 ORG0CC8H 

124 j 

125 j /HOSMES/ 1 STARTS AT 0CCSH 


126 i 

127 i ALLOCATION Cf H05H£5<16> CHARACTERS 
123 ! 


129 

OB 

'MXST' 



130 

OB 

'SIFT' 



131 

08 

'SPS2' 

i 

STEP SIZE 

132 

DB 

'HGMX' 

i 

NEGrtflX 

133 

DB 

'PSMX' 

} 

FOSHRX 

134 

OB 

'L5PT' 

J 

LSTPMT 

135 

DB 

'SNID' 

1 

ISNIND 

136 

ce 

'SUPS' 

i 

ISNPOS 

137 

» 

'COHX' 

i 

Cl DM AX 

138 

DB 

'CDMN' 

i 

CIDMIN 

139 

DB 

i t 



149 

08 

/ / 



141 

OB 

! ! 



142 

DB 

i t 



142 

CQ 

O 

t ! 



144 

03 

t ) 




145 j 

146 END 


USER SYMBOLS 
ASC T AB A ARM 
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ORIGINS PAGE® 
OF POOR Q^AUTY 


ISIHI HflCPO ASSEHELER, V3. « TfiSLE F*ffi 4 

ASSEMBLY COMPLETE* HO EPPOfiS 
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A5HS9 ■ Pi DEFTPS. ASH ►fiCROFILS HOC-95 


1515— II mms MACRO ASSEMBLER, VI 9 DEFTftS 


SjOC OBJ LINS SOURCE STflTSHEHT 
1 1 

2 ; SUBROUTINE DEFTflB 
2 » 

4 ; 

5 j DEFAULT TABLE FOR CONVERSION AND 

6 : 

8 > 

3 NOME DEFTfiB 
10 ) 

11 PUBLIC DEFTEL 

12 ) 

0 BE 8 13 ORG 06 E 8 H > ORIGIN FOP. COWON ' 

14 I 

15 i COmON/DEFTfW DSFRHCL DEFCON 

16 ; 

17 J DEFxNG< 10 , 2 ) INT *2 

18 i PEFC 0 NC 10 , 2 ) INT *2 

IS ) 

20 ! RANGE CHECK TABLE 

21 i 

22 DEFTBL: ; 

23 ) MINIHUMS 



24 DEFRHG: s 

RANGE DEFAULTS 

0BE3 00F9 

25 

DH -1600H 

S DFD 

GBEA 66F9 

26 

DH -1000H 

; PCF 

8SEC 80F0 

27 

DH -160 &H 

j LCF 

OGEE 00F9 

28 

DH -1000H 

; UP 

0BF0 00F0 

29 

DH -1000H 

1 RAP 

6BF2 8000 

30 

DH 00000 

i Nes CID HIN • 

0BF4 0880 

31 

DH -32760 

J 

8BF5 0380 

32 

DM -32760 

} 

0BF8 0888 

33 

DW -32760 

} 

0BF3 8880 

34 

DM -32760 

i 


35 

i MAXIHUMS 

OBFC F97F 

36 

DH 32760 

l DFD 

0BFE F37F 

37 

DH 32759 

; PCF 

0C00 F87F 

38 

DW 32768 

} LCF 

0C02 0310 

33 

DH 1099H 

i LAP 

0C04 MIS 

40 

DH 1000H 

1 RAP 

0036 1827 

41 

DU 10603 

; H8S CID m 

0008 F87F 

42 

DH 32760 


0C9A F87F 

43 

DH 32760 


SC9C F37F 

44 

DH 22760 


0C8E F87F 

45 

DU 32750 

! 


46 

? 



47 

; CONVERSION TABLE 


48 

J 



49 

> OFFSET TERMS 

9C10 ?7FB 

50 DEFCON- DH 0FB97H) OFD 

0C12 sm 

51 

DH 6560H 

} PCF 

90.* 6006 

52 

DH 6668H 

t LCF 

0C16 00F3 

53 

CH 0F50OH 

i UP 

0C18 0Cf3 

54 

DU 0F800H 

1 SAP 
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isrs-u seweett ww asshbleri w .0 


DEFTfiS FFQE 


ORIGINAL PAGE IS 
OF POOR QUALITY 


LOC 08 J LINE 50 URCE STATEMENT 


OClfl 

ecis wee 
0 cie wee 
ec20 ewe 
8 C 22 mi 

0C24 eiw 
SC26 FFF? 
was FFFF 
0C2fl 5400 
9C2C 6400 
9C2E 0100 
9C20 0100 
0C22 0100 
6C34 0080 
SC26 MW 


55 CM 0 i NBS CID 

56 C«0 ; 

57 CM0 i 

58 DM 0 i 

59 CM 6 ; 

60 ; QfllN* TERflS 

61 DM 1 l DR) 

62 ft) -1 i PDF 
62 WrL ; LCF 

64 CM 4 ; LftP 

65 DW 4 i RfiP 

66 DM 1 f CID 

67 CM 1 ) 

68 EMI i 

69 CM 0 > 

70 DHO j 

71 i 

72 END 


FU3LIC SYMBOLS 
KTTSL R 88E5 

EXTEWL SYMBOLS 


USER svims 

DEFCON 0 8C10 DEFRNQ ft 0658 DEFTBL ft WE8 


flSSF'fSLY COHPLETEi NO ERRORS 
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Vm ' Fl: HOHITR, ASM HRCMF1LS M0085 


original page is 

of POOR QUALITY 


tsis-n eeTOr-ieees moto ftsssrsLER* w.o • admits pftss i 


loc on 


LIME SOURCE STATEMENT 


1 ; 
2/ 

3 j 

4 ; 

5 j 
Si 
7 i 
9; 
9 i 

19 i 

11 j 

12 J 

13 i 

14 i 

15 i 
IS i 
1 ? ) 
13 J 
19 i 
29 > 

21 j 

22 i 

23 j 

24 i 

25 i 

26 ! 
27 ) 
29 ; 
29 i 
39 ; 

31 j 

32 j 

33 i 

34 i 

35 • 

36 t 

37 ) 
39 i 

39 j 

40 s 

41 i 

42 ; 

43 i 

44 ) 

45 ! 

46 j 

47 i 

48 i 

49 i 
59 « 

51 ; 

52 ; 

53 j 

54 . 


PROGRfiH: STWlON HOHITCR «SP 1 9 

ORIGINAL SOURCE SPK-35.. S5C-S9. 19 UCNl-OFi PFO-J.G 
7393 KEYBOfiPO MOM1TO*> 

MODIFIED BY FOSTSP-MUIE® ASSOC 
NOVEMBER 81,1989 

FOR PRO-LOG STD BUS 8935 HITH 7302 f» V»T 
VCS HARDWARE CGNF1GURRT10H 


ABSTRACT 


THIS PROGRfiH IS ft 2K MONITOR FOR THE INTEL 3095 A*)0 

PPOVICCS a MINIMUM LEVEL OF UTILITY FUNCTIONS C 0P T HB ‘.SEP tnALCYMS 
EITHER HU INTERACTIVE CONSOLE (I E. TELETYPE) OP T HE USER Sl'FLOYlHQ 
THE KEYBOARD-DISPLAY THE KEYBOARD MONITOR RLiOHS THE JEEP TO ff EFFOFM 
SUCH FUNCTIONS ftS MEMORY AND REGISTER MANIPULATION .FPfltfPit uOADlNS. 
PROGRAM EXECUTION, INTERRUPTION OF AN EXECUTING c F.OGFPN AND 
SYSTEM REST. THE MONITOR ALSO PPOYIDES MINIMAL TAPE 1-0 

PROGRAM ORGANIZATION 

uxaux ■aaMaawaaaat 


THE PROGRAM IS ORGANIZED AS FOLLOWS - 

1) COLD START ROUTINE (RESET) 

2) HARM START - PEGISTER SAVE P0UTIN5 
3> INTERRUPT VECTORS 

4) KEYBOARD MONITOR 

5) TTY MONITOR 

6) LAYOUT OF RAM USAGE 


THE KEYBOARD MONITOR BEGINS HITH THE COWAND SSCMMZEP. B W.C»S& St 
THE COMMON) ROUTINE SECTION- UTILITY ROUTINE SECTION PND ‘WTO? 
TABLES. THE COMMAND AND UTILITY ROUTINES APE IN ALPHABETICAL OAtE 5 
HITH1N THEIR RESPECTIVE SECTIONS. 

THROUGHOUT THE KEYBOARD MONITOR, A COMMENT FIELD BEGINNING 
HITH "ARG - * INDICATES A STATEMENT WHICH LOADS A VALLE INTO 
A REGISTER AS AN ARGUMENT FOR A FUNCTION WHEN DSiTED AL‘.c 
LIST CF KEYBOARD MONITOR. ROUTINES 


CMMND 


EXAM 

GOCMD 

SSTEP 

Sl'BST 


CLEAR 
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ISJS-JI 3'380/SQ85 MACRO ftiSS'lBLERj V2.0 


HONITR PAGE 


4 


ORIGINAL PAGE IS 
OF POOR QUALITY 


LOC OBJ 


LINE SOURCE STftTEMEHT 


2038 


3017 

0912 

S80F 

5009 

3659 496 


55 i CLDIS 

55 i C105T 

57 ; DISPC 

58 ) ERR 

59 ; GTHEX 
50 J HXD5P 

61 i IHINT 
52 i INSDC 

62 J fKTRG 

64 i OUTPT 

65 t RDKBD 

56 s RETF 

67 i rett 

68 ; P.GL0C 
59 i RSTOR 
79 ; SETRG 

71 i UFDAD 

72 i UPODT 
72 l 


74 NAME MQfllTR 





77 J 

78 J SET CONDITIONS ASSEMBLY FIFO 

79 ; 


81 ; 

82 i 

83 J WAITS 

84 

85 

86 
87 


SET O ;0=NO WAIT STATES 

il=A WIT STATE IS (BERATED FOR EVERY M CYCLE 
j THE APPROPRIATE DELAY TINE MUST BE 'JSED FOR 
j TTY DELAY OR SET UP SINGLE 
;5TEP TIffiR FOR EACH CASE 


89 i 
99 u 

91 ; 

92 ; 

93 ; 

94 )* 


HOITOR EQUATES 




Irk* 


95 i 

95 RfttST EQU 2008H ; START ADDRESS OF RAN - THIS PROGRAM ASSUMES 

97 ; THAT 256 BYTES OF RfiMJOH ACCESS MEMORY BEGIN AT THIS ADDRESS. 

98 ; THE PROGRAM USES STORAGE AT THE BID OF THIS SPADE FOP VARIABLES; 

99 ! SAYING REGISTERS AND THE PROGRAM STACK 
109 ; 


181 RNUSE EQU 22 ; RAN USAGE - CURRENTLY 22 BYTES ARE USED FOP 
102 i /SAVING REGISTERS AND YPHASLES 

102 ; 

104 SKIN EQU 18 ; MONITOR STACK USAGE - MAX OF 9 LEVELS 

105 5 


106 UBPifi ESU 15 ; 5 USER ERAHCHES - 2 BYTES EACH 

107 j 

108 ADFLD EQU 0 ; INDICATES USE CP ADDRESS FIELD OF DISPLAY 

109 ADISP EQU rQH ; CONTROL CHARACTER TO INDICATE CU T=; . tT TO 



W6INAL PARC re 

0F POOR Quality 


rsi3-31 3966/9389 MACRO ftSSEMELER, 73.0 MONITR PftGE 3 


LOC OBJ LINE SOURCE STATEMENT 


3301 


0011 

0009 

0020 

3854 


0001 

0000 

0391 

0888 

20E9 

0008 


0910 

88fii> 

090E 

29CS 


113 

111 

112 

113 

114 
US 
116 

117 

118 
US 
123 
121 
122 

123 

124 

125 

126 

127 

128 
129 
138 

131 

132 

133 

134 

135 

136 

137 

138 

139 
143 

141 

142 

143 

144 

145 

146 

147 

148 
145 
153 

151 

152 

153 

154 

155 

156 

157 

158 
153 
168 
161 
162 

163 

164 


i /ADDRESS FI 9.9 «r r.rcpi_su 

CUTE. EQU OMri J ADDRESS FOR* SENDING CWFffl. CHARACTERS “C 

# /DISPLAY CHIP 

COMMA EQU 11H ) COMMA FROM KEYBOARD 
CSMIT EQU 8 ) INITIAL VALUE FOR COMMAND STATUS PEGISTEP 
CSR EQU 20H i OUTPUT PORT FOR COMMAND STATUS REGISTER 
ODISP ECU 94H # CONTROL CHARACTER TO INDICATE OUTPUT TO 
) /MTA FIELD OF DISPLAY 
DOT EQU 1 1 INDICATOR FOR DOT IN DISPLAY 
D5EY EQU 808H ; ADDRESS FOR SENDING CHARACTERS TO MfflflY 
DTFLD EQU 1 1 INDICATES USE OF DATA FIELD OF DISPLAY 
EMPTY EQU 88H J HIGH ORDER 1 INDICATES EMPTY INPUT SUFFER 
MNSIK EQU RfiMST + 256 - RHUSE ; START OF MONITOR STACK 
HODOT EQU 8 } INDICATOR FOR NO DOT IN DISPLAY 
;HUMC - DEFINED LATER # NUMBER OF COMMANDS 
JNUMARG - DEFINED LATER ) NUMBER OF REGISTER SAVE LOCATIONS 
PERIO ESU 18H ; PERIOD FROM KEYBOARD 
PRHPT ESU MOH 1 PROMPT CHARACTER FOR DISPLAY (CASH) 

UHMSK EQU 0EH # UNMASK INPUT INTERRUPT 
IJSRBR ESU RfiMST + 256 - (RMUSE + SKLN + UBPLH) ; START OF USER 
i BRANCH LOCATIONS 

t 

# ***** PULIC SYMBOLS FOR PROGRAM LINKAGE 
) 

PUBLIC CO# CIi RDKBO# DISP1# CMVBH, HEXASC# MSEC1H 
PUBLIC DELAY# SECDT# HSEC2H# MSEC20# OUTPT# GO# HONITR 

EXTRN IHTSPT 



TRUE MACRO USE # BRANCH IF FUNCTION RETURNS TF*JE 
JC WHERE 
ENDM 


FALSE MACRO USE ; BRANCH IF FUNCTION RETURNS FALSE 
JNC WHERE 
9©M 


USART INITIALIZATION CODE 

> w 1 4r* If* 

THE USART IS ASSUMED TO CONE UP IN THE RESET RCSITIOM 'THIS 
FUNCTION IS TAKEN CARE OF BY THE HARDWARE). THE US ART Hill 
BE INITIALIZED IN THE SAME HAY FOR EITHER TTY Cf CRT 
INTERFACE. THE FOLLOWING PARAMETERS ARE USED: 
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flONITR PAGE 4 


ORIGINAL PAGE IS 
OF POOR QUALITY 


3K5 SSSE-SLER, V3. 0 


l:c 


0000 

39M :E30 

mz enoi 

SS03 C3IF50 


LINE 

SOURCE STATEMENT 

165 • 

MODE INSTRUCTION 

166 > 

SSSS* =rt2== 

lb» j 


168 l 

2 STOP BITS 

163 j 

PARITY DISABLE) 

170 ! 

8 BIT CHARACTERS 

171 ! 

BAUD RATE FACTOR 0 s 64 

172 i 


173 > 

COmWD INSTRUCTION 

174 t 


175 } 


176 l 

NO HUNT MODE 

177 i 

NOT(RTS) FORCE TO 0 

178 i 

RECIEVE ENABLE 

179 ;• 

TRANSMIT ENABLE 

180 i 



181 j- 



frit *-» yfc * *»*"*♦■*■»» 

182 i 




183 ) 

PRO-LOG KEYBOARD LAYOUT 


184 i 




185 J 

14 - TTY 15 - SNGL 16 ~ **** 17 - EXAM 

pccrr 

186 ) 
137 )■ 

hOH STEP 

REGS 

SYSTEM 




188 i 



I 

1S9 l 

C D 

E F-FLAG 

I 13 - SUBS 

190 i 



I MEM 

191 i 



I 

192 i 

8 -H 3 - L 

A B 

I 12 - E 

193 i 



I 

134 ) 



I 

135 i 

4 - S?H 5 - SPL 

6 - PCH 7 - FCL 

I 11 - , - HEYT 

1 36 s 



I 

197 J 

• 


I 

198 i 

0 1 

2 3 

I 10 - . - E V EC 

153 i 



I 

200 j 



I 


202 J 
293 i 

204 i ***** "RESET* KEY ENTRY POINT - COLD START 

205 ; *m*» R£T 6 ENTRY POINT 

206 i 

207 ORQ 0 

298 HQNITR: » MONITOR ENTRY POINT 

209 INITUT : HVt A»0 i CLERR fiCCUHULfiTOR 

210 ! 

212 j 

213 JtP CLDST i GO FINISH COLD STURT 

214 CLD8K: ; THEN JV& BACK HERE 

215 JMP F£S10 i SKIP '3VER HfSM START CODE 

216 i 

217 J ***** R5T 1 ENTRY POINT - HARM START 
213 ; 

219 ORG 3 
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s:*-:: :3&Kt5 ma reseller, c.o 


H0HIT9 PROS 5 


F.iae w 

°F POOR QUALITY 


.1! CEJ 

LINE 

SOURCE STSTEKEMT 


220 

* SAVE BEfilSTSPi 

?ew heflo 


SHLt LSfiV » SAVE « c L REGISTERS 

NOS £1 

222 

FOP H i GST USER PROGRAM COUNTER FROM TOP OF s' 

WCC 22 S 220 

m 

5Hi> PSftV J /AND SfiVE IT 

•KSF F 5 

224 

FUSH PSH 


225 j w« oioH IS FST 2 ENTRY POINT (NOT USEO) 

0310 Ei 

225 

fC-P H J LOAD fLF/F'S INTO HL 

0011 22ED23 

227 

SHLO FSPY i SAVE FI IP, -’FLOPS i REGISTER A 

0014 210000 

223 

LX I US j CLEAR 4 1 L 

ooi" :? 

220 

DAO SP } GET USER STACK POINTER 


230 

J ***** GiSh IS R57 ■ ENTRY POINT (NOT USED ’ 1 

»Ji 22F*20 

221 

SHLD SSflV J ,m SAVE IT 

0015 ilS'lfl 

222 

LXI H.5SRM. ) SET STACK POINTER ?CP SPYING 

0 fll£ •? 

*’»•* 

zij* 

SPHL t /REKR1HINQ REGISTERS 

001? C5 

234 

PUSH B ! SAVE B « C 


235 

1 ***** turn IS RT 4 ENTRY POINT (N: t USE*' 


235 

PUSH i* i SAVE t* i E 

0021 ::‘?oo 

ll 7 

JNP REJIG } LEAYE ROOT - ?0R VECTORED 1M T EFP.‘»7E 


U? 

rj 

j| WUMMUOpy * w ft 'A_'tf.V<Juyft *.icf * '**$** Y* * **+:*"* ir* 


2<*0 

' 


241 

; ***** TPf? ENTRY POINT 


242 

i 

0024 

243 

ORG 24H 

002-1 CS137 

24-i 

JHP TRPPPR 


245 

} 


245 

■ ***** RET 5 ENTRY POINT 

v* r s 

246 

i 

ORG 23N 

coI3 C25iflr 

24? 

JNP RESET5 ; RET 5 JNP VECTOR 


250 



251 

; ***** RST 5. 5 EHTRY FOIST 


252 


«iC 

253 

ORG 2 CH 

001 C ” 0000 

E 254 

CALL INTFPT ; CALL SERVICE ROUTINE 

002 ? C? 

255 

RET ; RETURN TO CODS M 6 E INTEPROPT ***«iEO 


255 

i 


257 

j ***** RET 6 ENTRY & :iNT 


258 

i 

0020 

259 

ORB 3PH 

M30 C39137 

250 

JNP RESETS J RST 6 JNP YECTOP 


251 

1 


262 J ***** RST 6. 5 ENTRY POINT 


253 j 

«3* 

264 

ORG 3<iH 

0024 C910" 

255 

JMP RSETt? ? «>ST $ ? jm° werxeP 


255 

3 


257 

> ***** RST 7 ENTRY DCIK 1 * 


258 

i 

0630 

259 

QPG 384 

0023 0310? 


JNP RESET? : PET JNP VECTOR 


271 

i 


272 

s cct ? s ENTRY POINT 

oo:c 

273 

CRG 3CH 

003C 22510" 

274 

jfO c<£r^ ; 5ct 5 ?»*ip L 3 CSTICN 
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ORIGINAL PAGE !Q 
OF POOR QUALITY 


SIM I 5088/3085 MACRO ASSEMELffc V2.8 


MJNITP FAGE 6 


HUE SOURCE STATEMENT 


M3F 29 
004)3 ESOF 
■2042 32F120 
3045 SEOE 
0047 30 
•2040 FI 


0049 D8D0 
0045 E6C8 
0040 47 
W*E E688 

0050 C2O04O 

0053 78 

0054 £540 
0056 C20018 

0055 CD9783 


0O5C CKD81 
0O5F 3E50 
0061 32FE20 


0064 -1E520 

0067 F9 

0068 21F303 

0065 0E83 
2060 CD3E92 


0070 3E5F 
0072 O3D0 
0074 05C8 
0T6 E630 
3078 '287400 
307? COC001 
O07E CDC692 


275 i ____ 

277 ; 

278 RE510: i CONTINUE SAYING USER STATUS 

279 RIM ; GET USER INTERRUPT STAR'S AND INTERRUPT NfiSK 

280 AMI 6FH > ffiEP STATUS AND MASK BITS 

281 STA I5RY ) SAVE INTERRLPT STATUS AND MASK 

282 m AjUNMSK / UNMASK INTERRUPTS FOR MONITOR USE 
282 SIM 

284 01 } INTERRUPTS DISABLED WILE MONITOR IS RUNNING 

285 ; (EXCEPT WHEN WAITING FOR IMTPWT) 

286 ) CHECK FOR 7383 INSTALLATION 

287 IN m\ i READ £1,52 

288 ANI 0C0H ) KEEP UPPER TWO BITS 

289 MOV Bv ft i SAVE BITS 

290 »II 080H 


231 JNZ 4808N ! IF 8 BIT ON GO TO PROGRAM 

232 MOV A,B ; GET BITS BACK 
293 ftNI 04OH 

234 JNZ 10G0H ) IF BIT 7 OH GO TO PROLOG MONITOR AT 1008“ 


235 l 
296 

237 ; 

238 ; 


CALL MSEC2H i CALL 288 MSEC "ELAY 




299 > 


380 } BEGINNING OF KEVBO^FlD MONITOR CODE 

381 ; 


383 ; 

384 CALL CLEAR 

305 HVI A,88H l LOAD BUFFER EMPTY FLAG 

306 STA IBUFF ! SET INPUT BUFFER EMPTY FLAG 

307 J 


309 i 

310 i FUNCTION 1 ChMND - COMMAND RECOGNISE 

311 i INPUTS r NONE 

312 i OUTPUTS: NONE 

313 j CALLS: RDKBO, EPPj SUSST, EXAM, GOCND, SSTEP 

314 i CCSTEOYS : ft, B, C, D, & H> L F/F'S 

315 ; 

316 CMMND: 

317 LX1 HrMNSTK ; INITIALIZE MONITOR STRCK POINTER 

318 SPHL ) HL TO STACK POINTER STORE 

319 LXI H»PJ>YTBL ; LOAD ADDRESS OF READY fSSSAGE T 0 HL 
329 KYI C, 8 ; LOAD C WITH CHARACTER COUNT 

321 CALL OUTPT ; DISPLAY MESSAGE 

322 ; READ KSV80ARD FUNCTION KEYS 

323 MVI ft, OFH J 08881111 

324 OUT 0D0H j OUTFIT TO D0 

325 NOKEY: IN 0O8H ; INPUT FROM DO 


326 ANI 030H ; AND IN A 0011009 


327 JZ NOKEY ■ LOOP BACK IF MO KEY PRESSED 

323 CALL CLEAR ; CLEAR DISPLAY 

323 M0W3K: CALL FAKED , FEED KEYBOARD 
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WNITR PAGE 


5:5-1! Hffi/tteS fl*CFO ASSEMBLER, VI 0 


OftlGfJVAL PAGE ro 

0F p ooR quutv 


.:c :b: 


LIME SOURCE STRICT 


55Si 010:00 
0054 a £301 


0037 it 
0033 CA92&3 
MSB 23 
038C O0 
OvSO C287S0 


0038 33F01 


&333 212A03 
M53 » 

0057 05 
0053 05 
0O55 7E 
0055 23 
M93 53 
M9C 5F 

0050 E3 


505E CWM1 
00fti 215803 
3054 8E04 
0056 CDSE02 
00R3 005^3 


305C 02FF01 

305F CD1P83 
0»S2 CD8D03 
05B5 ?E 
5066 32f5I0 
5055 CD7C93 
OffiC 0601 
006E CD5C-52 

00Ci 02C888 


330 LXI *,m: i COUNTER FOR NOISES OF »MD£ 1*1 C 

331 LXI H, CHDTB j 0 ET ADDRESS OF COMMAND TABLE 

332 CND 10 : 

333 CMP M ) RECOGNIZE COmfiNO ? 

324 JZ CHW 5 ; VES - GO PROCESS IT 

335 I NX H i NO - NEXT CtttW® TRSLE EHTRV 

336 DCR C i END OF TRBLE 

237 JNZ CHOiO ; NO-GO CHECK NEXT ENTRY 

330 j YES - COMAIID UNKNOWN 

339 JNP ERR i DIEPLftV ERROR MESSAGE RHD GET AHOTWE 0 COMMAND 

348 CMM 5 : 

341 LXI H-CKDRO I GET ADDRESS OF COMMAND ADD C ESS TPSLE 

342 OCR C } ADJUST COWAND COUNTER 

343 ) COUNTER ACTS AS POWFER T 0 CCRAtlD ADDRESS TJ&E 

344 WD 8 J ADD POINTER TO TPBLE ADDRESS TWICE BECAUSE 

345 0 ® B J TABLE HAS 2 BYTE ENTRIES 

246 MOV A,H > GET LOW CFDEP BYTE Of CCffifiND PIDFESS 
^4? IhX H 

248 MW RR i GET HIGH ORDER BYTE Cf CCWND ADDRESS IN u 
343 MOV LA ; PVT LON ORDER 5 VTE IN L 

350 i COMMAND RO'JTINE POCFESS IS MO!* IN u i 

351 P*:HL i BRANCH TO RCC-RESS IN H 4 L BY LOADING PC 


352 

353 

354 

355 

356 

357 

358 
353 
363 

361 

362 

363 

364 
265 


COMMAND ROUTINES 


j FUNCTION: EXAM - EXAMINE AND MODIFY REGISTERS 
INPUTS: NONE 
OUTPUTS: NONE 

CALLS : am SETRGL. ERR, PGNAM RGLGC, UFDDT, GTHEX • NX™ 
i DESTROYS: A.B,C.D,E,HiLiF/F'S 

j 

EXAM: 


366 CALL CLEAR J CLEAR DISPLAY 


367 LXI H.XHSG i DISPLAY EXAMINE MESSAGE 
36S HVI Ci 4 
363 CALL OUTPT 


378 CALL SETRG i GET REGISTER DESIGNATOR FROM KEYBOARD AND 
371 ; /SET PEGISTER PO!‘ITEP SCCOROI*^ 


372 i IAS CHARACTER A PEOISTP f-rct^pTOR ? 

373 FALSE ERR > NO - DISPLAY ERROR MEG. AND TERMINATE CC'MM'-“.0 
374t JNC EAR 

375 EXM05- 


376 CALL RGNRN ; OUTPUT PEGISTER NAME TO ADDRESS FIELD 


377 CALL RGLOC i GET REGISTER SAVE LOCATION IN H 1 L 

378 MOV A. M 5 GET REGISTER CONTENTS 

373 STA CLIRDT » STORE REGISTER CONTENTS AT CURRENT DATA 
388 CALL URDDT > UPDATE DATA FIELD OF DIS^ 

2S1 MVI 8, DTFLD ; AEG - USE DATA FIELD OF DISPLAY 

382 CALL GTH5X ; GET HEX DIGITS - HEFE ANY DIGUS FECIEYED' 

383 FALSE EXH10 NO - DO HOT UFDATE REGISTER CONTENTS 
394+ JNC EXW0 
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' ORIGINAL “PAGE 1S“ 
OF POOR QUALITY 


SIS-: I 6080/3985 MACRO ASSEMBLER* Y3. 0 MONITR PAGE 8 


OBJ LINE SOURCE STATEMENT 


«C* CWW3 
MC7 t: 


0>3C3 FE13 
OOCfi CAD601 
00CD FEU 
09CF C2FT01 
00D2 CD8F02 


09D5 DAAF00 
im C3O601 


0ttB CDE301 
OOCE C0C002 
0OEL FE10 
£@G Cfl FA00 

09ES 32FE20 
69E9 CDCD01 
OOEC 0SS0 
00EE CD0D82 
MFi FE10 
00F3 C2FF0L 
00FS EB 
9flF? 22F220 


00FA COCEfQi 
00FD 21E703 
9100 0=04 
0102 CD9E02 
0J65 C32B03 


*188 CDE291 

am cscm2 


385 CALL RG10C J VES - GET REGISTER SAVE LOCATION IN H ! L 

386 MOV H*E J UPDATE REGISTER COHTBITS 

387 EXM10: 

388 CPI PERIO t HflS LftST CHRRfiCTER R PERIOD ? 

389 Jl CLDIS ; YES - CLEAR DISPLAY AND TERMINATE COMMAND 
398 CPI COMMA ) HAS LAST CHARACTER '* # ? 

391 JVC ERR i NO - DISPLAY ERROR MSG AND TERMINATE COMMAND 

392 CflLL HXTRG ) YES - F0VRNCE REGISTER POINTER ™ 

393 ) /NEXT REGISTER 

394 l ANY MORE REGISTERS ? 

395 TRUE EXM65 i YES - CONTINUE PROCESSING WITH NEXT REGISTER 
396+ JC EXK95 

397 JMP CLDIS ) NO - CLEfiR DISPLAY AND TERMINATE COMMAND 

398 i 

400 ; 

401 ! FUNCTION: GOCMD - EXECUTE USER PROGRAM 

402 s INPUTS: HONE 

403 J OUTPUTS: NONE 

404 J CALLS: OiSPC, RDKEO* CLEAR.* GTTEI* EFft OUTRT 

405 * DESTROYS: ftB,W>*E*H*L.F/F'S 

406 l 

407 GOCMD: 

408 CALL DISPC j DISPLAY USER PROGPAM COUNTER 

409 CALL RDKBD i REfiD FROM KEYBOARD 

410 CPI PERIO ; IS CHflRSCTER A PERIOD ? 

411 JZ 019 i YES - GO EXECUTE THE COMA® 

412 ; NO - ARE - CHARACTER IS STILL IN fl 

413 STfi I BUFF * REPLACE CHARACTER IN INPUT BUFFER 

414 CALL CLEAR i CLEfiR DISPLAY 

415 MYI B> H)FUS * ARG - USE ADDRESS FIELD 

416 CALL GTIO ) GET HEX DIGITS 

417 CPI PERIO i WRS LAST CHARACTER A PERIOD ? 

413 JIG ERR ; NO - DISPLAY ERROR MSG AND TERMINATE COMMAND 

419 XCHG ; PUT HEX VALUE FROM GTHEX TO H £ L 

420 SHLD PSAY i J£X VALUE IS NEW USER PC 

421 G19: 

422 CALL CLEAR i CLEAR DISFLAY 

423 LXI REXHSG i GET ADDRESS OF EXECUTION MESSAGE IN H ft L 

424 MYI C*4 ; LOAD C WITH COUNT OF 4 

425 CALL OUTPT J DISPLAY EXECUTION MESSAGE 

426 JMP RSTOR ; RESTORE USER REGISTERS INCL PROGRAM COUNTER 

427 i/I. E BEGIN EXECUTION OF USES PROGRAM 


423 * 

430 j 

431 ; FUNCTION S5TEP - SINGLE STEP <EXECUTE ONE USER INSTRUCT ION) 

432 i INPUTS: NONE 

423 * OUTPUTS: NONE 

424 ; CALLS- DISPC* RDKBD* CLEAR* GTHEX* EPR 

435 j DESTPOYS : A, B* C* D. E* H* L F/F'S 

436 i 

437 SSTEP- 

433 CflLL DISPC ; DISPLAY 1 USER PROGRAM CONFER 
439 CALL POKED ■ REfiD FPQW KEwras? 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


ISIS-II 8GW8Q&5 NFC80 ASSEMBLER, VI fl MOM™. P C 1E ? 


lx cbj lime source statement 

flivE fee 449 CPI PERIO ; HRS CHfifACTE? R p EHtOD ’ 

0119 CPD601 441 JZ CLDIS J YES - CLEAR DISPLAY T EFMINr T E CCf’iftD 

0113 Fall 442 CPI COMMA j HAS LAST CHAR'ACTER 3 COMMA ? 

0115 CA2D01 443 J2 STP20 j VES - 60 SET TIME?. 

444 i NO - CHARACTER FFOM KEVBOFPO HAS METER FERIOD CR C05SI 
0119 32FE20 445 STR I6UFF l REPLfiCE TIE CHARACTER IN THE INPUT BUFFER 

eilB CDCDfli 446 CALL CLEAR i CLEAR OISPLAV 

fliiE CD6D92 447 CALL OTHEX ; GET HEX DIBITS - HERE PNY DIBITS RECIEYSD ? 

449 FALSE ERR ; HO - DIPLAV ERROR HSU AND TERMINATE CCHMAND 
01>t D2FF01 449+ JNC ERR 

0124 EB 450 XCHQ l HEX VALUE FROM GTHEX TO H t L 

0125 22F229 451 SUD PSAV j HEX VALUE IS KEM USER PC 

0128 FE19 452 CPI PERIO ) HAS LAST CHARACTER FROM BTHEX A PERIOD ? 

012A CAD601 453 JZ CLDIS ; VES - CLEAR DISPLAY PND TERMINATE COMMAND 

454 J NO - MUST HAVE SEEN A COM 

455 STP29: 

012D 3AF129 456 LDA ISAY > GET USER INTERRUPT MASK 

0130 See 457 ANI 09H J KEEP INTERRUPT STATUS 

9132 32FD29 458 SIR TEMP t SAVE USER INTERRUPT STATUS IN TEMP 

0135 2AF226 459 LHLD PSAV i GET USER PC 

0133 7E 460 NOV &M i GET USER INSTRUCTION 

0139 FEF3 461 CPI <DI) ; DI INSTRUCTION ? 

0139 C24201 462 JNZ STP21 s NO 

013E PF 463 MRA A ; YES - RESET USER INTERRUPT STATUS 

613F C34901 464 JNP STP22 

465 5TP21: 

3142 FEF8 466 CPI <EI) ; El INSTRUCTION ? 

0144 C24C01 467 JNZ STP23 i NO 

0147 3E&8 463 I1YI R,08H i YES - SET USER INTERRUPT STATUS 

469 STP22: 

0149 32FD20 470 STA TEH 5 t SAVE NEH USER INTERRUPT STATUS 

471STP23: 

01C C32S03 472 JMP RSTOR ; RESTORE USER REGISTERS 

473 J 

474 5TP25: ; BRANCH HERE HHEN TIMER INTEPUPTS AFTER 

475 i /ONE USER INSTRUCTION 


314F F5 

476 

PUSH PSH i SAVE PSH 

0158 3AFF28 

477 

LDA USCSR ; GET USER IMAGE OF WHAT'S IN CSR 

0153 E53F 

478 

PHI 3FH i CLEAR 2 HIGH ORDER BITS 

&155 Fl 

479 

POP PSH ; RETRIEVE PSH 

0156 22EF20 

489 

SHLDLSAVi SAVE H & L 

0159 a 

481 

POP H ; GET USER PROGRAM COUNTER FROM TOP OF STACK 

015A 22F213 

492 

SHLD PSAV i SAVE USER PC 

01SD F5 

483 

PUSH PSH 

015E £1 

434 

POP h 

915F 22029 

485 SHLD FSRV ; SAVE FLIP/FLOPS AND A REGISTER 

0162 219300 

486 

LXI Hi8 i CLERR H L L 

9165 39 

487 

DAD SP ; GET USER STACK POINTER 

0166 22F420 

488 

SHLD SSAV ? SAVE USER STACK POIMTH? 

0169 21ED20 

499 

LXI aSSAV+l J SET MONITOR STACK POINTER FCR 

S16C =9 

498 

SPKL i /SAVING SHRINING USER REGISTERS 

015D C5 

491 

PUSH B ; SAVE B £ C 

0166 D5 

492 

PUSH D ; SAVE D S E 

016? 23 

493 

RIM ; GET USER INTERRUPT MASK 

0179 E607 

494 

ANI 07H ; KEEP MASK 9F: 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


:s:s-ii seee/9089 hpcso assembler, via whpr =rge i« 


LCC OBJ HUE SOURCE STATEMENT 

0172 21FD20 495 LXI Hi TEMP / GET USER INTERRUPT S™7US 

0175 £6 496 ORA M i OR IT INTO MASK 

01“ 6 32F120 497 STfl ISftV > SAVE INTERRUPT STATUS AND MASK 

9179 2E6E 498 MV! flUNNSK ; UNMASK INTERRUPTS FOR MONITOR USE 

0178 20 499 SIH 

017C C308&1 509 JMP SSTEP i GO GET REfiOV FOR fflOTHER INSTRUCTION 

SOI ; __ 

503 i 

504 i FUNCTION: SUBST - SUBSTITUE MEMORY 

505 i INPUTS: NONE 
536 ; OUTPUTS: NONE 

507 5 CALLS: CLEAR/ GTHEX, UPDflD* UPDDL EPR 

508 5 DESTROYS: ft 8, C» D, E, ft L F/F'S 

510 SUBST: 

917F CDCD01 51i CALL CLEAR ; CLEAR THE DISFLAY 

9192 21EF03 512 LXI ftSHSG ; DISPLAY SUBSTITUTE MESSAGE 

0185 9E04 513 HVI C,4 

0187 CD9E82 514 CALL OUTPT 

0i«fl COOD92 515 CALL GTHtX ; GET HEX DIGITS - HERE ANY MSITS FECI?;*!' ' 

516 FALSE EPR s NO -DISPLAY EFPOP USE PHD TERMINAL COMMAND 
018D D2FF81 517+ JHC ERR 

0190 E3 518 XCHG ; ASSIGN HEX VALUE RETURNED EV GTVEX TO 

0191 22F628 519 SHLD CURAD , / CURRENT ADDRESS 

520 SUB05: 

0194 FEii 521 CPI COm > HAS V THE LAST CHARACTER FROM I'EYSCAFD ? 

0196 C2C501 522 JIG SU815 } NO - GO TERMINATE THE CCKtfW 

0199 0600 523 NVI B, NODOT i ARG - NO DOT IN ADDRESS FIELD 

0198 CD6F03 524 CALL UPDAD ) UPDATE ADDRESS FIELD OF DISPLAY 

019E 2AF629 525 LRD CURAD ; GET CURRENT ADDFfSS IN H i L 

OiAi 7E 526 MOV A, N ; GET DATA EYTE POITED TO BY CURRENT ADDRESS 

0182 32FS20 527 STA CURDT J STORE DATA BYTE AT CURRENT DATA 

01A5 CD7C03 528 CALL UFDDT i UPDATE DATA FIELD OF DISPLAY 

SiA8 0681 529 NVI B.DTFLD ; ARG - USE DATA FIELD 

BifiA C00D92 530 CALL GTVEX i GET HEX DIGITS - HEPS ANY ^EX DIGITS : EC I? ED' ■ 

01AD F5 531 PUSH FSH : (SAVE LAST CHARACTER) 

532 FALSE SUS10 i Ii0 - LEAVE DATA UNCHANGED AT CURRENT rtif.ESS 
BIAS D2BA01 533+ JNC SUBIC 

01S1 2AF620 534 LHLD CURAD J YES - (ST CURRENT ADDRESS IN H t L 

0154 73 535 MOV Hi E ; STORE NEH DATA AT CURRENT ADDRESS 

536 ; MAKE SURE DATA HAS fiCTl'ALLV STORED IN CASE 

537 i /CURRENT ADDRESS IS IN POM OP IS NON-VOLITILE 

01B5 7B 538 MO*/ ft E ; DATA TO A FOP COMPARISON 

0iB6'BE 539 CMP H i HAS DATA STORED CORRECTLY 

81S7 C2FF01 540 JIG ERR ; NO - DISPLAY ERROR MSG ft© TERMINATE COMMAND 
541 SU810: 

01BA 2AF629 542 LHLD CURAD ; INCREMENT CURRENT ADDPESS 

013D 23 543 IHX H 

GIBE 22F620 544 SHLD CURAD 

OiCl Fi 545 POP PJH ; RETRIEVE LAST OWJSTER 

01C2 039*01 546 JMP SUES5 ; 

547 SUB15: 

91C5 FE19 548 CPI PERIO t WAS LAST CHSPPCTEP A PERIOD *> 

01C7 C2FF91 549 JIG ERR i NO - DISPLAY ERROR MSG TERMITE W? 
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ORIGINAL PAGE IS 
Of POOR QUALITY 


ISIS-1: m/'m MACRO ASSEMBLER, V3.0 H0N1TR PAGE ii 


LOC OB? UHE SOURCE STATEMENT 


9iCA C2D601 


01CD 21DB03 
OHM QBB8 
01D2 CD?E02 
01D5 C9 


3iDt> COCD01 
OID? C36430 


31DC 3EB0 

woe o:-dd 

31E0 2E03 


550 JHP CLDIS } YES - CLEfiR DISPLAY AND TE S «!‘I* T = COW 

551 i 


552 } 

553 i 


554 ! 

555 i UTILITY ROUTINES 

555 ) 




558 > 

559 i FUNCTION: CLEfiR - CLEAR DISPLfiY 
550 i INPUTS: NONE 


551 ; OUTPUTS: NONE 
562 i CALLS: CUTPT 


563 ; DESTRQYES. fi,B,C,D/E,H;L,F/F'S 

564 ; DESCRIPTION: CLEfiR SENDS BLANK CHARACTERS TO BOTH THE ADDRESS FIEil' 

565 t AND THE DflTfi FIELD OF THE DISPLAY IF THE DOT FLAG IS 

566 i SET THEN R DOT HILL ftPPEfiR ftT THE PIG4 T EDGE OF THE 

567 J ADDRESS FTELD 

568 i 

569 CLEfiR: 

570 LXI Hi BLANKS J ARC - ADDRESS OF BLANKS MS"J*Y 

571 MYI C/8 ) LOAD C WITH CHfiPfiCTCR COUNT 

572 CALL OUTPT ; OUTPUT BLANKS TO ADDRESS FIELD 

573 RET / RETURN 


574 i 


575 ; 


576 J 

577 J FUNCTION: CLDIS - CLEfiR DISPLAY AND TERMINATE CON.' ‘AND 


578 J INPUTS: NONE 

579 i OUTPUTS: HONE 

580 ; CfiLLS: CLEAR 

581 1 OESTROYES: H,B,C,D,E,H,LF/F'S 

582 i DESCRIPTION: CLDIS IS JIWED TO BY COMMAND ROUTINES WISHING TO 

583 t TERMINATE NORMALLY. CLDIS CLEARS THE DISPLAY AND 

584 ; BRANCHES TO THE COMMAND RECOGNISE?. 

585 ; 


586 CLDIS: 

587 CAU CLEAR/; CLEAR THE DISPLfiY 

588 JMP CNt®/ GO GET ANOTHER COMMAND 

589 ; ( 

590 ; *** 

5 k ; 

592 i FUNCTION: CLDST - COLD START 

593 J INPUTS: NONE 

594 ; OUTPUTS: HONE 

595 i CALLS' NOTHING 


596 : OESTROYES* A 

597 ; DESCRIPTION: CLDST IS WED TO BY ™E RAIN COLD ST»T “CCEREE 

598 ; COMPLETES THE COLD START I III T I r.LIZAT I 'DM.- 

599 ; AID JUMPS SACK TO THE MAIN COLO START FSttEE-.« 


m 

601 CLDST: 

£02 HVI ft/URTPC ; LOAD UAPJ PORT CONTPOL BVTE 

602 OUT COMCP ; OUTPUT PORT CONTROL BYTE 

634 Wl ft, ijRTSPC ; LOAD UART SYSTEM CONTROL gv T E 
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isis-ii 5tm ; &aa5 macro assembler, v3.o 


ORIGINAL PAGE »S 
OF POOR QUALITY 


WHIP PPGS 12 


LSC OBJ LIME SOURCE STATEMENT 


01S2 D2DE 


01E4 21E920 
01E7 F9 

01£9 020500 


OiEB Clilrti 
01EE 2fiF229 
31Fi 22F620 
91F4 7E 
01F5 32F329 
01F8 CD6F03 
OiFB CD7C03 
OiFE 09 


OIF 21002 
0202 0E04 
9204 CD9E02 
9207 CD9103 

920A C3&408 


005 OUT COHSCP > OUTPUT SYSTEM CONTROL BYTE TO SYSTS» ?£*T 
£09 f < 

607 U’l H.MSTK ; LOAD HL HITTi STACK STPRT ADDRESS 

608 SPHL ) STACK POINTER SET UP 

609 ; 

610 JHP CLDBK > BACK TO MAIN PROCEDURE 

6n ; 

613 / 

614 t FUNCTION: DISPC - DISPLAY FROGPPM COUNTER 

615 ; INPUTS: HONE 

616 } OUTPUTS: NW£ 

617 i CALLS: UimUPDOT 

618; DESTROYES: ft, B, C, D, E, H. L, F/F'S 

619 > DESCRIPTION: DISPC DISPLAYS THE USER PRQQRFM CGWT&. Ill T HE PCCfESS 

620 i FIELD OF Tffi DISPLAY, WITH A DOT AT THE RIGHT SME 

621 j OF THE FIELD. THE BYTE OF DPT« AODTSSSED E'Y TH E PROGRAM 

622 i COUNTER IS DISPLAYED IN WE DATA FIELD -OF THE Mir LAY. 

622 ; 

624 DISPC- 

625 CALL CLEAR ) CLEAR DISPLAY 

626 LHLD PSAV i GET USER PROGRAM COUNTS 

627 SHLD CURfiD ; MAKE IT THE CURRENT ADDRESS 

628 MOV A, M ; GET THE INSTRUCTION AT THAT ADDRESS 
529 STA CUR£>T ; MAKE IT THE CURRENT DATA 

620 CALL UPDAD ; UPDATE ADDRESS FIELD OF DISPLAY 

631 CALL UPDDT ) UPDATE DATA FIELD OF DISPLAY 

632 RET ; RETURN 


633 ; 

634 j 




535 ; 

636 ; FUNCTION: EPR - DISPLAY ERROR MESSAGE 

637 ) INPUTS: NONE 

638 ; OUTPUTS’- NONE 


639 > CALLS: OUTPT 

640 ; DESTROYES: A. 8, C, D, E H, L F/F'S 

641 } DESCRIPTION- ERR IS JUMPS TO BY COMMAND PP."!€S HISHUS TO 

642 ; TERMINATE BECAUSE OF AN ERROR. 

642 ; ERR OUTPUTS AH EPPOR MESSAGE TO r hE DISPLAY AND 

644 ; BRANCHES TO THE COMMAND RECOGNIZER. 

645 ; 

646 ERR: 


647 LXI H.ERHSG ; ARC - ADDRESS OF ERROR MESSAGE 

648 MVl 0,4 ; LOflD 4 COUNT 

649 CALL OUTPT ; OUTPUT ERROR MESSAGE TO ADDRESS FIELD 
630 CALL SECDT ; DELAY FOR 2 SECONDS 

651 ; 

652 JHP CMWD ? GO GET A NEH COMMAND 


OOJ 

654 

655 




656 ; FUNCTION: GTHEX - GET HEX DIGITS 

657 ; INPUTS: NONE 

658 ; OIJTPIJTS: A - LAST CHPPPCTEP READ F&OM *‘£VBO«»D 

659 : DE '■ HEX DIGITS FROM KEYSCf’O EVALUATED WDUlC 
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ISIS-II S090/8065 MACRO ASSEMBLER, V3. 0 


original sv;a k j l- 

OF POOR QUALITY 

HOHITR PAGE 13 


LOC OBJ 


LINE SOURCE STATEMENT 


«200 BE0B 
020F 11O0QO 
3212 55 

0213 05 

0214 C0CM2 
6217 FE10 
3219 023732 

321C 01 
eilD CD8602 
0220 Cl 
022l'0E3i 

3223 C5 
0224 05 
3225 78 

0226 0F 

0227 023102 


022A 53 
022B CK033 
022E C31432 


3231 CO7303 


0234 C31402 


0237 01 
3228 FEii 

0238 CS4802 
0230 FE10 
023F Cfi*392 


660 » CARRY - SET IF fiT LEAST CUE VALID «EX DIGIT yfi« READ 

661 ; - RESET OTHEFHISE 

662; CALLS* RDKBD, INSDGi HXDSP, OUTPT 

663 ; OE5TROVS: A,B,C,D,E,H,bF/F'S 

664 ; DESCRIPTION: QTHEX ACCEPTS A STRING OF HEX DIGITS rPOM THE KEYBOARD, 

665 ; 

666 ; 

667 ; 

668 ; 

669 ; 

670 ; 

671 ; 

672 s 

673 ; 

674 ; 

675 ; 

676 ; 

677 ; 

678 GTHEX: 

679 MVI C,0 ; RESET HEX DIGIT FLAG 

680 LX! Di0 1 SET HEX VALUE TO ZERO 

681 PUSH B ; SAVE BC 

682 PUSH 0 ; SAVE HEX VALUE 

683 GTH05: 

684 CALL RDKBO i READ KEYBOARD 

685 CPI 10H i IS CHARACTER A HEX DIGIT 7 

686 JNC GTH29 ; NO - GO CHECK FOR TERMINATOR 

637 ; YES * ARG - HEH HEX DIGIT IS II! A 

688 POP 0 ; ARG - RETRIEYE HEX VALUE 

689 CALL INSDG ; INSERT NEH DIGIT IN HEX VALUE 

690 POP B > RETRIEVE DISPLAY FLAG 

691 HVI Cil ; SET HEX DIGIT FLAG 

692 i /Cl. E ft HEX DIGIT HAS BEEN READ/ 

693 PUSH B ; SAVE BC 

694 PUSH D ; SAVE HEX VALUE 

695 HOY H/B ; TEST DISPLAY FLAG 
656 RRC s SHOULD ADDRESS FIELD OF DISPLAY BE USED ? 

697 JNC GTH19 ; YES - USE HEX VALUE AS IS 

698 ; HO - ONLY LOU ORDER BYTE OF HEX VALUE SHOULD 

699 ; XBE USED FOR DATA FIELD OF DISPLAY 

700 MOV D/E ; PUT LOH ORDER BYTE OF HEX VALUE IN D 

701 CALL D5PDT2 

702 IMP GTH05 
793 GTHJL9: 

704 ; ARG - HEX VALUE TO BE EXPANDED IS IN D i E 

705 CALL DSPDT4 ; GO DO 2 CHARACTER OUTPUT 

706 ; 

707 JIP GTH05 ; GO GET NEXT CHARACTER 

708 GTH20- 

709 ; LAST CHASACTFR HAS NOT A HEX DIGIT 

710 POP D ; RETRIEVE HEX VALUE 

711 CPI COMMA ; HflS LAST CHARACTER A COM® ? 

712 JZ GTH25 ; YES - READY TO RETURN 

713 CPI PERIO ; NO - WAS LAST CHARACTER A PERIOD ? 

714 JZ GTH25 ; YES - READY TO PETJPH 


DISPLAYS THEM AS THEY ARE PEC I EYED.- AND RETURNS THEIR 
VALUE AS A 16 BIT INTEGER IF MORE THAN 4 HEX DIGITS 
ARE FECI EYED/ ONLY THE L«T 4 ARE USES*. 

THE LAST FOUR HEXIDECIMRL 
DIGITS ARE DISPLAYED IN THE ADDRESS FIELD OF THE 
DISPLAY. A CHARACTER WHICH IS HOT 
A HEX DIGIT TERMINATES THE STRING AND IS RETUFJiED i\i 
AN OUTPUT OF THE FUNCTION. IF THE TERMINATOR IS NOT 
fl PERIOD OR ft CflMfi THEN W HEX DIGITS WHICH MAY -AYE 
BEEN PECIESD APE CONSIDEFEE' T 0 EE INVALID THE 
FUNCTION RETURNS A FLAG INDICATING WHETHER OP NOT ANY 
VALID HEX DIGITS HERE RECEIVED. 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


ISIS-II 8HUSW5 MACRO ASSEMBLER, V2.0 MONITR PPGE 14 


LOC OBJ 

LINE 

SOURCE STATEMENT 


715 

; NO - INVALID 

0242 110000 

716 

LXI Di8 J SET HEX ''FLUE TO ZERO 

0245 C20903 

717 

JMP RETF t RETURN FALSE 


718 GTH25- 

0243 Ci 

719 

POP 8 ; POP SC 

0249 47 

720 

MOV B*A ) SAVE LAST CHARACTER 

024R 79 

721 

MOV AC 1 SHIFT ©< DIGIT FLAG TO 

0248 0F 

722 

RRC ) /CARRY BIT 

024C 73 

723 

MOV AS ; REST Of £ LAST CHARACTER 

0240 C9 

724 

RET ; RETURN 


02 4£ 7R 
62JF 0F 
0230 0F 
*251 0F 
9252 0F 
0253 21F920 
0256 CD7402 

0259 77 
0250 70 
025B 23 
625C C074Q2 
625F 77 
6260 7B 

0261 6F 

0262 0F 

0263 OF 

6264 OF 

6265 23 
0266 CD7462 
9269 77 

0260 73 
026B 23 
026C CD7462 
926F 7? 
0270 21F920 
0273 C? 
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725 

726 

727 
723 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 


FUNCTION: HXDSP - EXPAND HEX DIGITS FOR DISPLAY 

INPUTS: DE - 4 HEX DIGITS 

OUTPUTS: H - ADDRESS OF OUTPUT BUFFER 

CftLLS: NOTHING 

DESTROYS: A, H> L F/F'S 

DESCRIPTION: HXDSP EXPANDS EfiCH INPUT BYTE TO 2 BYTES IN 8 FOF.fi 

SUITABLE FOR DISPLAY 97 THE OUTPUT SOUTINES. EACH INPUT 
BYTE IS DIVIDED INTO 2 HEX DIGITS. EfiCH HEX DIGIT IS 
STORED IN THE OUTPUT BUFFER. THE FUNCTION RETURNS THE 
ADDRESS OF THE OUTPUT BUFFER. 


HXDSP: 

MOV HD ; GET FIRST DATA SYTE 
RRC ; CONVERT 4 HIGH ORDER BITS 
RRC ! /TO A SINGLE CHARACTER 
PJ 1 ' 

RRC 

LXI HjOSUFF > GET ADDRESS OF OUTPUT BUFFER 

CALL HffiASC J CONVERT BITS TO ASCII CODE IN R 

MOV Mfl ; 5T0F£ CHARACTER IN OUTPUT BUFFER 

MOV H.D } GET FIRST DATA BYTE AND CONVERT 4 LOW ORDER 

I NX H ) NEXT BUFFER POSITION 

CALL ICXflSC 

MOV HA i STORE CHARACTER IN BUFFER 
HXDSP2: MC'. S ft E ; GET SECOND DATA BYTE 
RRC i CONVERT 4 HIGH ORDER 8ITS 
RRC ) /TO A SlrSLE CHARACTER 
RRC 
RRC 

I NX H ; NEXT BUFFER POSITION 
CALL HEXfisC 

MOYH.fi; STORE CHARACTER IN BUFFER 

MOV A,E J GET SECOND DATA BYTE AMD CONYERT LON ORDER 

INX H i NEXT BUFFER POSITION 

call HEXFISC 

HOV 11 A ; STORE CHARACTER IN BUFFER 

LXI HjOBUFF j RETURN ADDRESS OF OUTPUT BUFFER IN H i L 

Ft/; RETURN 


FUNCTION: HEXfiSC 


lufrMNctrc A *•+-*#* 




LOC OBJ LINE SOURCE STATEMENT 

m i INPUTS’ HEX DIGIT IN ACCUMULATOR 

771 i OUTPUTS: ASCII CODE IN A 

772 ; CALLS: NOTHING 

773 t DEV5TR0 VS: fLF/F'S 

774 ) DESCRIPTION: PEXftSC CONVERTS ft HEX NIBBLE IN A TO fiN ASCII CODE 

775 ! 

775 HEXASC: 

0274 E53F V 7 AN! 0FH i CLEAR UPPER BITS TO ZERO 

0275 FE0A 773 CPI 0AH i TEST BITS IF ft-F 

0273 M7E02 779 JC HEX05 ; JIW IF 0-9 

027B C537 780 ADI 037H j ADD 37 TO FORM ASCII 

027D C9 781 RET i RETURN 

782 HEX85: 

027E F530 783 OR! 070H i OR IN ft 30 TO 8-9 

0289 C9 784 RET j RETURN 

785 i 

787 J 

788 J FUNCTION: MINT - INPUT INTERRUPT PROCESSING 

789 J INPUTS: HONE 

790 i OUTPUTS: NOE 

791 i CALLS: NOTHING 

792 j DESTROYS: NOTHING 

793 j DESCRIPTION: MINT IS ENTERED BY MEANS OF AN INTERRUPT VECTOR UV7, 

794 J 

795 ININT: 

0231 E5 795 PUSH H I SHVE H 4 L 

8282 F5 797 PUSH PSK j SAVE F/F'S £ REGISTER ft 

793 ! ***** INTERRUPT CODE GOES HERE 
0283 FI 79 9 POP PSH i RESTORE F/F'S 4 REGISTER ft 

9284 El 800 POP H J RESTORE H £ L 

8285 C9 £01 RET; RETURN 

802 < 

003 j i ****** ic^Y***** 

804 i 

805 J FUNCTION: INSDG - INSERT HEX DIGIT 

SOS ; INPUTS: A - EX DIGIT TO BE INSERTED 
80? ; DE - EX VfiLUE 

80S ; OUTPUTS: DE - HEX VALUE H1TH DIGIT INSERTED 
C89 j CALLS: NOTHING 

810 i DESTROYES: R/ F/F'S 

811 j DESCRIPTION: INSDG SHIRS TE CONTENTS OF 0 £ E LEFT 4 BITS 

812 ; (1 HEX DIGIT) AND INSERTS TE HEX DIGIT IN THE LOW 

813 ; ORDER DIGIT POSITION Cf TE RESULT. A IS ASSUMED TO 

314 ; CONTAIN ft SINGE HE)! DIGIT !H THE LOU GFDER 4 BITS AND 

315 i ZEROS IN THE HIGH OPDEP ■» BITS. 

816 ; 

817 INSDG; 

0286 E3 818 XCHG ) PUT D £ E IN H fc L ‘ 

0237 29 .319 OftO H i SHIFT H £ L LEFT 4 BITS 

0288 29 820 DAD H 

0239 29 821 CAD H 

028ft 29 822 DAD H 

0288 35 823 ADD L i INSERT LOW ORDER DIGIT 

028C or 324 MOV LA ; BY ADDING L*fl = A 
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ORIGINAL page is 
OF POOR QUALITY 


ISIS-II 9OS0.5O65 KftCRO ASSEMBLER# Y3. « HQHITR PAGE it 


LOG OBJ LINE SOURCE 5TATEh 1 £HT 


oast* e? 

028E C? 


02SF 3AFD20 

0232 FE0C 
0294 D20SO3 
023? 3C 

0233 32F020 
023B C30EG3 


929E 07 
02A0 55 
02A1 CMB02 
02A4 10 
02R5 23 
KM 00 
02A7 C2A0Q2 
92AA C$ 


92AB ~A 
02BC F6?0 
OLAE 03M 
02B0 78 
0281 E6F 
9263 0301 
02S5 73 


825 KCHQ i PUT H i L BACK IN D 4 E 
825 RET J RETURN 
827 i 

823 i 

838 i FUNCTION: NXTRQ - ADVANCE REGISTER POINTER TO NEXT REGISTER 
331 i INPUTS: NONE 

832 i OUTPUTS: CARRY - 1 IF POINTER IS ADVANCED SUCCESSFULLY 
333 ) - 8 OTHERWISE 

834 ) CALLS* NOTHING 

835 s DESTROYS: fbF/F'S 

836 i DESCRIPTION: IF THE REGISTER POINTER POINTS TO THE LAST REGISTER IN 

837 J THE EXAMINE REGISTER SEQUENCE.. THE POINTER iS NOT 

838 ) CHANGED AND THE FUNCTION FETUFNS FALSE IF THE REGISTER 

83? # POINTER DOES NOT POINT TO THE LAST REGISTER THEN THE 

840 i WINTER IS ADVANCED TO THE NEXT FEGISTER IN T HE SEQUENCE 

341 ; AND THE FUNCTION RETURNS TRUE. 

84 2 f 
843 NXTRG 

S44 LDR RGPTR i GET REGISTER POINTER 

845 CPI NUHRG-i j COES POINTER POINT TO LAST REGISTER ' 

846 JNC RETF j YES - UNABLE TO ADVANCE POINTER - RETURN C ALSE 

847 1NR ft i NO - ADVANCE REGISTER POINTER 

848 STA RGPTR i SAVE REGISTER POINTER 
84? JAP RETT j RETURN TRUE 

850 * 

852 # 

853 i FUNCTION* OUTPT - OUTPUT CHARACTERS TO DISPLAY 

854 i INPUTS: 

855 i C - CHARACTER COUNT 

856 > HL - ADDRESS OF CHARACTERS TO EE OUTPUT 

857 i CALLS: NOTHING 

858 J DESTROYS: fl,B»C.O>£»H>LFYF'S 

85? i DESCRIPTION: OUTPT SEND? CHARACTERS TO T HE DISPLAY. THE ADDRESS 

860 i OF THE CHARACTERS IS RECIEVED AS AN ARGUMENT 

861 i 

362 OUIPT: 

853 NVI Ei7 * CLEAR E TO 7 FOR ZERO CHARACTER POSITION 

864 OUT05: MOV D.N j LOAD CHARACTER IN iWO 

865 CALL DISPi ) CALL DISPLAY ROUTINE FOR 1 CHARACTER 

866 OCR E J DECREMENT E FOR POSITION COUNT 

86? INX H f INCREMENT ADDRESS REGISTER HL TO NEXT CHARACTER 

868 OCR C j DECREMENT CHARACTER COUNT 

86? JNZ 0UT05 i LOOP BACK IF NOT [ONE DISPLAY 

870 RET i RETURN 

871 > ******** 

872 « PRO-LOG 7303 DISPLAY OUTPUT CODE 

873 DISPI. HOY PUD * OUTPUT DISPLAY DATA 

374 ORI 080H i TURN ON BIT 8 FOR PPO-LOG 

375 OUT ODOH i PORT DO, SEND DATA 

376 MOV A, E * OUTPUT DISPLAY ADDRESS- SET HCTTP HIGH 
877 ANI 0F7H . ATIO TO FORK CODE 11110111 

378 OUT ODiH * FORT D1 . SEND POSITION TO 01 

379 MOV a.E s SET NOT NR LCH 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


I5IS-II 8880*985 MACRO ASSEMBLER, W. 0 RQNITR PAGE 17 


IOC OBJ LIME SOURCE STflTEMEHT 

0256 F508 888 ORI 88H s OR IN ft 0900-1000 

0299 HOI 881 OUT 0O1H » PORT Di 

82Bfl 78 882 MOV RLE 

0288 StF7 883 AM 9F7H i AND IN A 11110111 

8280 D3D1 884 OUT 6MH » PORT 01 

92BF C9 885 RET ) RETURN 

888 i 

883 j 

889 i FUNCTION; RDKBO - REfiO KEYBOARD 

890 i INPUTS: NONE 

831 ; OUTPUTS: fl - CNftRftCTER REfiD FROM KEYBOARD 

832 i CALLS: NOTHING 

833 i DESTROYS: fLMLF/F'S 

894 l DESCRIPTION: RDKBD DETERMINES WHETHER OR NOT THERE IS fl CHARACTER IN 
835 i THE INPUT BUFFER IF HOT, THE FUNCTION ENABLES 

896 J INTERRUPTS AND LOOPS UNTIL THE INPUT INTERRUPT 

897 : ROUTINE STORES fl CHfiRftCTEP. IN THE BUFFER. WEN 

898 i THE BUFFER CONTAINS ft CHARACTER, THE FUNCTION FLAGS 

899 J THE BUFFER AS EMPTY AND RETURNS THE CHPRflCTER 

900 i AS OUTPUT. 

901 ) 

902 POKED: 

993 i 

904 s PRO-LOG 7303 KEYBOARD INPUT DRIVER 


02C0 D5 

905 

PUSH D l SCAN KEYBOARD 8Y ENAiBLING 

02C1 C5 

906 

PUSH B i ONE COLUMN AT ft TIME AND 


907 

J 

02C2 1688 

908 

m D,88H ) LOOKING FOR fl KEY CLOSURE, 10901000 

92C4 7fl 

909 

NXTCOL: MOV ft, D 

02C5 07 

910 

RLC ) ROTATE fl LEFT AND SET CARRY 

02C6 57 

911 

MOV D,h i SAVE SHIFTED PATTERN 

02C7 E60F 

912 

flNI 0FH i ft® IN fl 90001111 

02C9 D3D9 

913 

OUT 6D0H i PORT 00 

02C8 OBD0 

914 

IN 9D0H J PORT D0 

02CD S63F 

315 

flNI 2FH ; AND IN fl 00111111 

02CF EAC482 

916 

JPE NXTCOL 

92D2 5F 

917 

MOV E.A i LOAD E WITH INPUT 

0203 CDA303 

918 

CALL R5EC20 i HflIT 20 MSEC 

0206 D8D8 

919 

IN 0D0H ; PORT DO 

0208 E63F 

920 

AN! 3FH j AND IN A 09111111 

92Dfi A8 

921 

XRfl E ; EOR E INTO fiCC 

020B C2C402 

922 

JIG NXTCOL i IF NOT SflfE IGNORE AND NEXT COLUMN 

92DE 010000 

923 

LXI 8,9 CLEAR BC 

02E1 Tfl 

924 

MOV A,D i LOAD PATTERN 

02E2 IF 

925 C0LCN7: RfiR . CONVERT COLUMN OUTPUT TO fl COUNT K 

02E3 DAEA02 

?2& 

JC ROHCNT i JUH> ON CARRY TO ROW CO'JNT 

82E6 04 

92? 

INR B 

02E7 CBE292 

523 

JMP COLCNT 

02EFI 78 

929 ROHCNTr MOV ft, E s CONVERT RON INPUT TO fl COUNT J 

02E3 IF 

930 

FAR 

62EC 0C 

921 

INR C 

02ED '>7302 

922 

JC EHCOOE ; JUMP ON CARRY TO ENCODE 

02F9 C3GB02 

333 

JMP PONCNT+i 

02F3 00 

934 ENCODE: OCR C , DECREMENT REGISTER C 



ORIGINAL PAGE IS 
OF POOR QUALITY 


ISIS-II 6060/8685 HfiCRO ASSEMBLER, V3. 0 


MOHITR PAGE IS 


IOC OBJ 

LINE 

SOURCE STATEMENT 

82F4 73 

935 

MOV A.B ) JOAD ACC WITH ROW 

02F5 CAFE02 

936 

JZ RKEXIT 

02F3 CaW 

937 ADDROW: ADI 04H j IF J. HE. 0 fiOD J*M (# OF COLS) 

02Ffl 0D 

938 

OCR C 

02FB C2F882 

939 

JNZ ADC-ROW 


940 RKEXIT: 

02FE F5 

941 

PUSH PSM 

02FF E5 

942 

PUSH H 

0309 CD9703 

943 

CALL HSEC2H 

0383 a 

944 

POP H 

0384 FI 

945 

POP PSW 

0305 Cl 

946 

POP B j RESTORE ALL REGISTERS 

0306 Di 

947 

POP D ; POP STACK FOR DE 

0397 C9 

948 

RET J RETURN 


0388 37 
830? 3F 
8388 CS 


9308 37 
030C C9 


512 


949 } 

550 

551 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 
967 

*8 

969 

970 

971 i 
9?2 j 

973 

974 

975 

976 

977 

978 

979 

980 
931 

982 

983 

984 

935 

936 

987 

988 

989 


FUNCTION: RETF - RETURN FfiLSE 
i INPUTS: NONE 

j OUTPUTS: CARRY = 0 (FALSE) 
i CPUS: NOTHING 
j DESTROYS’ CARRY 

; DESCRIPTION: RETF IS JUMPED TO BY FUNCTIOMS WISHING TO RETURN FfiLSE 
i RETF RESETS CARRY TO 0 fiND RETURNS TO THE CfiLLER OF 

j THE ROUTINE INVOKING RETF. 

i 

RETF: 

STC ; SET CfiRRY TRUE 
CMC } COMPLEMENT CfiRRY TO 
RET , -RETURN 


MfiKE IT FfiLSE 


{ FUNCTION RETT - RETURN TRUE 
; INPUTS- NONE 
i OUTPUTS: CfiRRY = 1 (TRUE) 

> CflLLS: NOTHING 
DESTROYS • CARRY 

DESCRIPTION: RETT IS JUMPED TO BY ROUTINES WISHING TO RETURN TRUE 
RETT SETS CfiRRY TO 1 fiNO RETURNS TO THE CALLER OF 
THE ROUTTIKE INVOKING PETT. 

RETT: 

STC ; SET CfiRRY TRIE 
RET ; RETURN 


FUNCTION- RGLOC - GET REGISTER SAVE LOCATION 
INPUTS: HONE 

OUTPUTS' HL - REGISTER SAVE LOCATION 
CALLS: NOTHING 
DESTROYS: E.CiULF/F-'S 

DESCRIPTION- RQ.OC RETURNS THE SfiVE LOCATION OF PEGirEP 
INDICATED BY THE CURRENT FEQIS T EF POINT*? "FLUE 
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ISIS-Ii 8030,3985 MACRO ASSEMBLER/ V3,0 


MONITR PAGE IP 


loc os; 


02OD 2AFD29 
0310 2630 
0212 91304 

0315 03 

0316 65 
9317 2629 

031B C9 


071 A 2RFD29 
0310 2600 
031F 23 
0329 2? 
9321 010804 

9324 99 

9325 8E84 
0327 CD3E02 
032A C9 



p AGE /o 
OUALn^ 


LIME SOURCE STATEMENT 


999 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1009 
1001 
1002 

1003 

1004 
1905 
1006 

1007 

1008 
1009 
1019 
1011 
1012 

1013 

1014 

1015 

1016 
1017 
1619 
1013 
1029 
1021 
7022 
1923 

1024 

1025 

1026 
1927 
1028 
1023 
1039 
1931 

1032 

1033 

1034 

1035 

1036 

1037 

1033 

1937 ' 

13^0 

liHi 

tan 

1043 

194 4 


RGLOC: 

LHLO RGPTR ) GET REGISTER POINTER 
MVI H/9 » /INH 4 L 

LXI B/RGTBL ; GET REGISTER SAVE LOCATION TABLE ADDRESS 

DAD B ! POINTER INDEXES TABLE 

HOY L/H ! GET LOU ORDER BYTE OF REGISTER SAVE LOC. 

MV I Hr (RANST 5HR 8) j GET HIGH ORDER BYTE OF 
J /REGISTER SAVE LOCATION 

RET ; RETURN 


FUNCTION: ROM - DISPLAY REGISTER NAME 
; INPUTS: NONE 
J OUTPUTS: NONE 
J CALLS- OtJTPT 

J DESTROYS: A B, C* D, & H. L F/F'S 

DESCRIPTION: ROMAN DISPLAYS/ IN THE ADDRESS FIELD- OF THE DISPLAY- 
THE TWISTER NAME CORRESPONDING TO THE CURRENT 
H&S"?* POINTER VALUE 

RGNAH: 

LHLD RGPTR i GET REGISTER POINTER 
MVI H/0 

DAD H i MULTIPLY POINTER VALUE EV 4 

DAD H i /(REGISTER NAME TABLE HAS 4 BYTE ENTRIES) 

LXI B, HffTBL i GET ADDRESS Cf START OF REGISTER NAME TABLE 
DAD B i ARG - ADD TABLE ADDRESS TO POINTER 

; /ADDRESS OF APPROPRIATE REGISTER NAME IN Hi L 

MVI C/4 

CALL OUTPT j OUTPUT REGISTER NAME TO ADDRESS FIELD 
RET / RETURN 

} 

j 

} FUNCTION: RSTOR - RESTOR USER REGISTERS 
j INPUTS: NONE 
i OUTPUTS: NONE 
j CALLS: NOTHING 

; DEYSTROYS: A/B/C/O/E/ULF/FS 

/ DESCRIPTION: RSTOR RESTORES ftLL CPU REGISTERS. FLIP/FLOPS/ 

; INTERRUPT STAR'S. INTERRUPT MASK/ TACK POINTER 

) AND PROGRAM COUNTER FROM THEIR RESPECTIVE SAVE 

> LOCATIONS IN MEMORY. BY RESTORING THE PROGRAM 

; COUNTER/ THE ROUTINE EFFECTIVELY TRANSFERS CONTROL TO 

i THE ADDRESS IN THE FPOGPAH COUNTER SAVE LOCATION. 

THE TIMING CF THIS ROUTINE IS CRITICAL TO THE 
CORRECT OFFR8TION OF THE SINGLE STEP ROUTINE. 

IF ANY MODIFICATION CHANGES THE MUHEER OF CPU 
STATES NEEDED TO EhECUTE THIS RCUTINE THEN “HE 

TIMER VALUE MUST BE ADJUSTED BY THE SAME NUMBER. 

-•■■■•>* 'HIS IS ALSO THE ENTRY POINT FOR THE TTY MONITOR 
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ORIGINAL >AGE“IS 
OF POOR QUALITY 


ISIS-11 608VM85 fflCRO fl5S0BLffi( V3. 0 HONITR PfiG£ 20 


Ltt 00? LINE SOURCE STATEMENT 


032B 2AFi20 
332E Foie 

9339 39 

0231 3AF129 
0224 to08 
9336 CA3D93 
0339 rB 
933A C34193 

933D 27 
032E D24103 


0341 21E920 
0344 r? 
9345 Dt 
0346 Cl 
034" FI 
934? 2AF420 
934B F9 
924C 2AF220 
034F E5 
0250 2AEF20 
0353 C? 


9254 CDC882 
0357 FE10 
0359 020803 


935C 0603 

035E P fl 0S93 
9261 4P 


1045 .• TO RESTORE REGISTERS. 

1046 i 
1947 R5T0R- 

1048 LM ISRV { GET USER INTERRUPT MSK 

1049 GRI 1SH * ENABLE SETTING INTERRUPT MftEK AND 

1059 j /RESET IV3C FLIP FLOP 

1051 5IK ; RESTORE USER INTERRUPT MASK 

1952 ( RESTORE USER INTERRUPT STATUS 

1052 LDA ISflV J GET USER INTERRUPT MASK 

1054 MI 88K ) SHOULD USER INTERRUPTS EE EHRBLED 7 

1055 J2 RSR05 5 NO - LEAVE INTERRUPTS DISABLED 

1056 El i YES - ENABLE INTERRUPTS FOR USER PROGRAM 

1057 JMPRSR10 

1058 RSR05: 

1059 STC ; WJHMV INSTRUCTIONS - WEN SINGIE STEP ROUTINE 
i860 JNC RSR10 i /IS BEING USED, THE TIMER IS RUNNING AND 

1061 ; /EXECUTE TINE FOR THIS ROUTINE HUS ’ 

1062 i /VfiRV. 

1063 RSR10: 

1064 LX I H,MNSTK j SET MONITOR STACK POINTER TO STRRT OF STACK 

1065 SPHL i /WHICH IS ALSO END OF REGISTER SAVE AREA 

1066 POP D i RESTORE REGISTERS 

1067 POP B 
1063 POP PSW 

1069 LHLD SSRV J RESTORE USER STACK POINTER 
1970 SPHL 

1071 LHLD PSAV 

1072 PUSH H ) PUT USER PROGRAM COUNTER OH STACK 

1073 LHLD LSAV > RESTORE H 4 L REGISTERS 

1074 RET i RETURN 

1075 ; 

1076 ; t^^^^ * ^' M< fV * -r^^ A »* ^ *H* .t 4M^ »*^A***^**if*****.W»*:*-**i>*>*t «*Ji 

1077 ) 

1073 j FUNCTION: SETRG - SET REGISTER POINTER 
1079 i INPUTS: NONE 

1088 t OUTPUTS: CfiRRV - SET IF CHARACTER FPO« KEVSOERP IS H REGISTER DESIGNATOR 

1081 ; RESET OTHERWISE 

1082 j CALLS' RDKBD 

1083 ; DESTROYS: A,B,C,H,LF/F'S 

1084 i DESCRIPTION: SETRG READS A CHARACTER FRGtt THE KEYBOARD. IF THE 

1085 i CHARACTER IS A REGISTER DESIGNATOR, IT IS CONVERTED TO 

1086 ; THE CORRESPOI&IHG FEGISTSR POINTER VALUE, THE POINTER IS 

108? ; SAVED, ANO THE FUNCTION RETURNS 'TRUE' OTHERWISE, THE 

1088 i FUNCTION RETURNS 'FALSE' 

1089 i 

1090 SETRG: 

1091 CPU RDKBD t READ FR1H KEVBOARD 

1092 CPI 10H IS CHARACTER A DIGIT ? 

1093 JNC RETF i NO - RETURN FALSE - CHARACTER IS NOT A 

1094 j /REGISTER DESIGNATOR 

1095 SUI 3 ; VES - TRY TO CONVERT FEGISTER DESIGNATOR TO 

1096 ; / INDEX INTO FEGISTER °OINTER T AELE 

1097 i HAS CONVERSION SUCCESSFUL ? 

1093 JC RET" i NO - F.ETURN FALSE 

1999 NOV C,A ? INDEX TO B l C 
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Of pQf^ PAGE IS 
w P00R QUALITY 


LOC OBJ IIHE SOURCE SlftTEHEflT 


0362 0600 
0264 21F392 
0267 99 
9268 7E 
9369 32FD29 
026C C29B93 


036F 2AF620 
9372 EB 

0373 CDJE02 


9375 9504 
0273 CME02 
037B C? 


937C 3AF329 
037F 57 

0389 CWE02 

9333 0502 
0385 1592 
9787 CDA002 
0383 C3 


1190 HVI 8. 9 ) 

1101 LSI H» RGPTB i GET ADDRESS OF REGISTER POINTER TP5LE 

1102 DAD B i INDEX POINTS INTO TftBLE 

1103 NOV aM ) (SET REGISTER POINTER FROM TABLE 

1194 STB RGPTR i SAVE REGISTER POINTER 

1195 JKP RETT i RETURN TRUE 
1105 J 

1109 I 

1109 ; FUNCTION: UPDAO - UPDATE ADDRESS FIELD OF DISPLAY 


1110 ; INPUTS: HONE 

1111 ) OUTPUTS: NONE 

1112 i CALLS: K<DSP, OUTPT 

1113 ) DESTROYS: A. B. C» Pi E. Hi L F/F'S 

1114 i DESCRIPTION: UPDhD UPDATES THE ADDRESS FIELD OF THE DISPLAY USING 

1115 i THE CURRENT ADDRESS. 

1115 ) 

ill? UPOAD: 

1118 LHLD CURA9 ; GET THE CURRENT RDDFESS 

1119 XCHG i ARG - PUT CURRENT ADDRESS IN D 4 E 

1120 DSPDT4: i ENTRY POINT FOR 4 CHARACTER ADDRESS OUTPUT 

1121 CALL HXD5P J EXPAND CURRENT ADDRESS FOR DISPLAY 

1122 i ARG - ADDRESS OF EXPANDED ADDRESS IS IN H 4 L 

1123 WI Ci04H ; LOAD 4 CHARACTER COUNT 

1124 CALL OUTPT i OUTPUT CURRENT ADDRESS TO ADDRESS FIELD 

1125 RET i RETURN - 
1125 t 


1128 i 

1129 ; FUNCTION: UPODT - UPDATE DATA FIELD OF DISPLAY 

1130 i INPUTS: NONE 

1131 ) OUTPUTS: NOPE 
1122 ; CALLS: HXDSP, OUTPT 

1132 i DESTROYS : A> B, C. D, E d L, F/F' 5 

1134 i DESCRIPTION: UPDDT UPDATES THE DATA FIELD OF THE DISPLAY USING 

1135 ; THE CURRENT DATA BYTE. 


1136 j 

1137 UPDDT: 

1133 LDA CURDT ; GET CURPxNT DATA 
1129 MOV D.A ) ARG - PUT CURRENT DATA IN D 

1140 DSPDT2: ; ENTRY POINT FOR 2 CHARACTER DISPLAY 

1141 CALL HXDSP i EXPAND CURRENT DATA FOR DISPLAY 

1142 i ARG - ADDRESS OF EXPANDED DATA IS IN H 4 L 


1143 HVI Cj 2 

1144 MV1 t,2 i SET TO 5TH SLOT 

1145 CALL OUT05 ; ENTER OUTPUT ROUTINE 


1146 RET s RETURN 

1147 > 


1143 i* 




1149 i 

1153 J FUNCTION: DELAYS 

1151 J INPUTS' NONE 

1152 ! OUTPUTS: NOfE 

1153 ; CALLS- NOTHING 

1154 ; DESTROYS A;3> C*F/F 'S 
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OF POOR QUALITY 


ISIS-I I 3089/W5 MACRO ASSEMBLER, V3. 0 HON I TR PfiOH 22 


LOG C-BJ 


LINE SOURCE STATEMENT 


0288 910100 
038E C2A603 

0351 MENS 
0394 C2A603 
0397 01C800 
939A C3A503 
0290 018400 
02P0 C3A503 
03A3 011408 
8288 0B 
02R7 C5 
9388 0ED6 
03OH 00 
03RB C2AA03 
92PE 01 
93AF 78 
0280 Si 
0381 C2A683 
03B4 C9 


0385 12 
8285 13 

0387 17 

0388 15 


9289 14 
9005 


1155 i DESCRIPTION. DELAYS iS THE DELAY TIMS FUNCTION BLOCK 
•1155 ; FROM THE PRO-LOO MONITOR. THE ENTRY POINTS 

1157 ) INCLUDE 1 SEC, 200 MSEC, 109 MSEC, 29 MSEC, AND 1 MSEC. 

1158 i THE DELAY ROUTINES ARE CALLED AND RETURN 

1159 ) WHEN DELAY FINISHES. 

1150 ; 

1161 DELAY: LXI 8,1 1 LOAD EC WITH A 1 

1162 JMP MSECDT ; GO TO 1 MSEC DELAY LOOP 

1163 SECOT: 

1164 LXI B, 03E8H ; LOAD 8C WITH 1000 DECIMAL 

1165 JMP MSECDT 

1166 MSEC2H: LXI 8,68^1 J LOAD BC WITH 200 DECIMAL 

1167 JMP MSECDT 

1168 HSEC1N: LXI 8,0S4H t LOAD EC HITH 100 DECIMAL 

1169 JMP MSECDT 

1179 HSEC20: LXI 8,0014H j LOAD EC WITH 20 DECIMAL 

1171 MSECDT: OCX B ; DELAY N MILLISECONDS 

1172 PUSH 8 j WERE N16=<BC> 

1173 MVI C,0DBH 


1174 

1175 
1175 

1177 

1178 

1179 

1180 
1181 
1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 
1192 

1194 

1195 
1195 


DELENT: DCR C 
JN2 DELENT 

POP 6 i POP BC OF STACK 
MOV A, 8 
ORA C 

JNZ MSECDT i JUN> BACK TO MSECDT IF NOT DONE 
RET ; RETURN 


J 



J 

; COMMAND TABLE 

i COMMAND CHARTERS AS RECIEYED FOM KEYBOARD 
CJ1DTB: 

DB 12H ; GO COMMAND 

08 13H ; SUBSTITUTE COMMAND* 

D8 17H i EXAMINE REGISTERS COMMAND 
D6 15H ; SINGLE STEP COMMAND 
; DB 10H ; EXEC KEY 
J DB 11H j NEXT KEY 


1197 ; DB 16H ; DUMMY 


1190 D8 14H ; TTY MONITOR 

1199 i 

1200 NUNC ECU KMDTB i HUMBER OF COMMAND'S 



1294 i COMMAND ROUTINE ADDRESS TABLE 

1295 ; «.MUST BE IN REVERSE ORDER OF COMMAND TABLE) 
1295 CHOflD* 

1297 i DH DUMMY COMMAND 1 


1283 i DH DUMMY COMMAND 2 
1209 .* DH DUMMY COMMAND 2 
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ORIGINAL PAGE & 
OF POO?? QUALITY 


ISIS-II V3.0 MONITR PftOE ft 


LOG C-BJ LINE SOURCE STATEMENT 


03EA 4904 1210 DU GO J TTY MONITOR 

03BC 0881 1211 Ml S5TEP i fiDDRESS CF SINGLE STEP ROUTINE 

93BE 9EO0 1212 DU EXAM ; ADDRESS OF EXfiNINE REGISTERS ROUTINE 

03C0 T01 1213 ON SUBST i fiDORESS Cf SUBSTITUTE MEMORY ROUTINE 

0302 8808 1214 DW GOCHO ) ADDRESS OF GO ROUTINE 

1215 l 

1217 J 

1218 DSPNUM: ) DISPLAY TABLE FOR HEX DIGITS 
1213 i 

1220 OSPTBt > TfiBLE FOR TRANSLATING CHARACTERS FOR 'OUTPUT 

1221 > 

1222 ) DISPLAY 

1223 J FORMAT CHARACTERS 



1224 


1225 


1225 


1227 

00B0 

1228 

03C4 50 

1229 

02C5 51 

1238 

03C5 B2 

1231 

03C? 93 

1232 

03CS B4 

1233 

09B5 

1234 

03C3 B5 

1235 

03CA SB 

1235 

03C5 B7 

1237 

00B8 

1238 

02CC 53 

1239 

03CD 69 

1240 

00C1 

1241 

03CE Cl 

1242 

00C2 

1243 

03CF C2 

1244 

00C3 

1245 

63D0 C3 

1245 

00C4 

1247 

eooi C4 

1248 

00C5 

1249 

03D2 C5 

1250 

00CS 

1251 

03D2 CS 

1252 

00CS 

1253 

03D4 C8 

1254 

eecc 

1255 

9305 CC 

1255 

0000 

1257 

0306 DO 

1253 

0BC3 

1259 

03D7 C3 

1250 

00D2 

1251 

03D3 D2 

1252 

0003 

1252 

03D3 03 

1254 


i 

} PRO-LOG 7303 USES 8 

ZERO EQU im 
DB 660H i 8 
DB 0B1H ; 1 
DB 0B2H i 2 
CB 0B3H J 3 
DB 0B4H i 4 
FIVE EQU 0B5H 
DB 0B5H J 5 
DB 0B6H t 6 
DB 0B7H ) 7 
EIGHT EQU 668H 
DB 0B8H i 8 
Cfl 0B3H i 9 
LETRA EQU 0C1H 
DB 0C1H i A 
LETRB EQU 0C2H 
DB 0C2H i B 
LETRC EQU 6C3H 
DP 0C3H ) C 
LETRD EQ'J 0C4H 
DB 0C4H ; D 
LETRE EQU BC5H 
DB 8C5H ) E 
LfTRF EQU 0C6H 
DB 0C5H ; F 
LETRH EQU 0C8H 
DB 0CSH ; H 
LETRL EQU 6CCH 
DB 0CCH ; L 
LETRP EQU 0D0H 
DB 0D8H ; P 
LETS I EQU 6t9H 
DB 0C9H ; I 
LETRR EQU 0D2H 
DB 0O2H ; R 
LETRS ECU 0D3H 
OB 0D3H ; S 


BIT ASCII,? BIT PLUS BIT 8 = 1 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


isis-ii mums macro rssek&leri vxo 


H0N1TR PAGE £4 


LOC 

OBJ 

LINE 

LjV«S0 


1285 

EDA 

A9 

1288 



1267 



1268 



1269 



1279 



1271 

83DB 

A0 

1272 

03CC 

A0 


03DO 

A0 


03DE 

AB 


03DF 

A0 

1273 

03E0 

A0 


03E1 

A0 


03E2 

R0 


03E3 

2fl 

1274 

92E4 

C5 


03E5 

D2 


02E6 

D2 


03E7 

C5 

1275 

53ES 

53 


03E3 

C5 


03EA 

51 


03E3 

2A45584D 

1276 

03EF 

2A534240 

1277 



1278 



1279 



1280 

03F3 

2A524541 

1281 

03F7 

4459202A 



SOURCE STATEMENT 


1273 BLHKS: DB 6LAN& BLAMC BLANIG BLANK ; FOR ADDRESS OR DATA FIELD 


1274 ERMSQ: DB '*'i LETR& LETRRi LETRR j ERROR MESSAGE FOP. POOR. FIELD 


1275 EXMSG: DB LETRL 'X',LETR& 'Q' ; EXECUTION MESSAGE 


'*EXIf i EXAMINE MESSAGE 
'*SBN' ; SUBSTITUTE MEMORY 


RD'TABLE FOR MONITOR PROMPT 'SMONITR' 


1282 

1283 

1284 ; 

1235 RGPTB: 
1288 

1287 

1283 

1289 

1298 

1291 

1292 

1293 ; 


DB '*R£ADV * i MONITOR PROMPT 


i REGISTER POINTER TABLE 

THE ENTRIES IN THIS TABLE ARE IN THE SAME ORDER 
AS THE REGISTER. DESIGNATION KEYS ON THE LEYSORPD. 
EACH ENTRY CONTAINS THE REGISTER POINTER Vft-J E NhlCH 
CORRESPONDS TO THE REGISTER DESIGNATOR. REGISTER 
POINTER VALUES ARE USED TO FOINT INTO THE REGISTER 
NAME TABLE (NMTEL) AND REGISTER SAVE LOCATION 
TABLE (RGTBL). 


03FB 

06 

1294 

ce 

6 ; INTERRUPT MASK 

03FC 

09 

1295 

DB 

9 ; SPH 

03FD 

3A 

1296 

DB 

19 ; SFL 

03FE 

08 

1297 

DB 

11 J PCH 

03FF 

0C 

1298 

DB 

12 ; PCL 

0490 

07 

1299 

CB 

7 ; (I 

0401 

08 

1300 

DB 

3 i L 

0482 

00 

1201 

DB 

0 i A 

8^3 

01 

1302 

DB 

1 i B 

0404 

02 

1303 

DB 

2 ; C 

0405 

02 

1304 

DB 

3 ) D 

0406 

04 

1385 

DB 

4 i E 

0407 

05 

1306 

DB 

5 ; FlAGS 


5X8 



ORIGINAL PAGE fs 
QF POOR QUAUTV 


I5T5-II *089/3085 { 1fiCR0 ftSSEftBlffr V2. 9 


MGHITR PffiE 15 


LOC OBJ LI1E SOURCE STATEMENT 


0408 80 
3408 W 
040ft Ci 

04ce fie 

640C fiO 
0400 fl0 
040E C2 
840F fi0 

0410 ft0 

0411 80 

0412 C Z 

0413 80 
9414 80 
0415 ffl 

0418 C4 

0417 80 

0419 P0 
9418 80 
041fl C5 

0418 90 
04ic fa 
0411* 09 
841E Co 
0415 SB 
8428 ft0 

6421 ft0 

6422 C? 
6422 flO 

0424 »3 

0425 ftO 
3426 C9 

6427 ft3 

6428 03 

6429 A0 
942fl CC 
942B ft© 
042C 03 
6420 00 
042E >35 
042F * 
0*38 03 

0431 09 

0432 CC 
0*32 W 
3424 60 
0*25 C2 
0425 CS 
942? *0 
0423 00 
3429 C3 


397 




UW 1 

“ ** * “5® «**, „ . « « 

■m m 0.mHKj BLANIG LETRftj BLANK 1 ft REGISTER 


1313 C€ BLf^BLfiNttLEm BLANK i B REGISTER 


1314 08 ELM- BLANk LETRCi BLANK i C REGISTER 


1315 DB SLfilKx BLftHKi LETRDi BLfiNK i 0 REGISTER 


1316 08 EtmELfWxtETR&ElftK > £ REGISTER 


1317 08 BLfWC BLfiNK. ICTRF, BLfiNK > FLAGS 


1318 DB BUWo BLANK; LETRL BLANK ; INTERRUPT WSK 


1319 OB BLANK* BLANK* LETRfiL BLANK ) H REGISTER 


1320 08 BLANK* BLANK* LETRL BLftttC * L REGISTER 


1321 OB LETRS* LETRP* LETRH* BLANK i STACK POINTER HIGH CfiDE?. SVTt 
1222 03 LETRS* LETUP* LETRb BLfiNK * STACK POINTER LCD ORDER SVTt 
1323 08 LETRP- LETKC* LET5H* BLANK > FPOGRAH C0W® HIGH WE 


•324 DB LET??' LE7RC* 10EL BLANK ? 


PP06PAN COUNTER LOW EVTE 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


ISIS-II <3050/5085 MftCRO ASSEMBLES, V3, 0 


HOMITR PfiCS IS 


IOC cw 

04 -a cc 

(14:9 R0 


LI HE SOURCE STATEMENT 


i REGISTER SHVE LOCATION TABLE 

s ADDRESSES OF SRVE LOCATIONS OF REGISTERS IN THE ORDER IN WHICH 
; THE REGISTERS ARE DISPLAYED BY THE EXAMINE COMMAND 


043C EE 
8430 EC 
Q43E EB 
G4E F ea 

0440 E9 

0441 ED 
0«2 FI 
044 ’ ?0 

0444 FF 

0445 F5 
044$ F4 
0447 F"i 
0440 F2 
8000 


RGTBL: 

DB NSW AND 0FFH i A REGISTER 
K BSflV AND OFFH t B REGISTER 
« CSAY AND 0FFH > C REGISTER 
D8 DSAV (W OFI’H J D REGISTER 
re ESAY AND OFFH ) E PEGISTER 
DB FSAV AND 0FFH ) FLAGS 
DB ISW AND 0FFH J INTERRUPT MASK 
DB HSAV AND OFFH J H REGISTER 
IB LSAY AND 0FFH J L REGISTER 
re SPHSV AND 0FFH ) STACK POINTER HIGH ORDER BYTE 
re SPLSY AND 0FFH j STACK POINTER LOH ORDEP BYTE 
l» PCHSV AND OFFH ! PROGRAM COUNTER HIGH ORDER BYTE 
DB POSY AND 9FFH ; PROGRAM COUNTER LOH ORDER BYTE 
HUMS ECU (f - RGTBL) ; NUMBER OF ENTRIES IN 

i /REGISTER SRYE LOCATION TABLE 


STDMON TTY MONITOR 




i ABSTRACT 


; THIS PROGRAM RUNS ON THE 0085 BOARD AND IS DESIGNED TO PROVIDE 
} THE USER WITH A MINIMAL MONITOR BY USING THIS PROGRAM 
; THE USER CAN EXAMINE AND CHANGE MS'ORY re CPU REGISTERS, LOAD 
j A PROGRAM (IN ABSOLUTE HEX) INTO RAM AND EXECUTE INSTRUCTIONS 
; ALREADY IN MEMORY. THE MONITOR ALSO PROVIDES THE USER WITH 
; ROUTINES FOR PERFORMING CONSOLE I/O. 


} PROGRAM ORGANIZATION 


THE LISTING IS ORGANIZED IN THE FOLLOWING HAY. FIRST THE CGMflfiNO 
RECOGNIZER, WHICH IS THE HIGHEST LEVEL ROUTINE IN THE PROGRAM: 
NEXT THE ROUTINES TO IMPLEMENT THE VARIOUS COM* FINALLY. 

THE UTILITY ROUTINES WHICH ACTUALLY DO THE DIPTV WORK. WITHIN 
EACH SECTION, THE ROUTINES ORGANIZED IN ALfHAEE T ICAL 
ORDER, BY ENTRY POINT OF THE ROUTINE 



'ORIG TV hmc IS 
OF’ PUUR QUALITY 


ISIS-II 3080/80*5 MfiCRO ASSEKBLERf V3. 0 NONITR PPGE 27 


LOC 03J LINE SOURCE STATEMENT 
1373 ; 

137? i HftCROS USED IN THE TTV MONITOR fi?E DEFINED IN THE fflrBffl® MONITOR. 
1383 J 

1381 J LIST OF FUNCTIONS 

1383 ) 

1384 ) GETCtl 

1385 ) 

1388 i 

1387 i DCHD 

1338 ; GCm> 

1389 I 1CHD 

1390 i HCHD 

1391 J SCUD 

1392 i XCHD 

1393 i 

1394 j 

1395 i Cf 

1396 l CNVBN 

1397 ; CO 

1398 l CROUT 

1399 J DELflY 

1408 ; ECHO 

1481 ; ERROR 

1402 i FRET 

1403 ! ETCH 

1404 i GETHX 

1405 ; GETMM 

1406 ; HILO 

1407 i NMOUT 

1408 ; PP.VRL 

1409 ; REGDS 

1410 i RGflDR 

1411 ) SPET 

1412 ; STffa 

1412 ; 5THLF 

1414 i VflLDG 

1415 ; VRLDL 

1416 ; 

1417 i 

1418 ; 

1419 ; 

1420 ; 

1421 J 

1422 ; MONITOR EQUATES 

1423 ; 

1424 i 

1426 ; 

1427 j 

1428 ; THIS TABLE IS CODED IN 7 SIT ASCII FCR TTV Cf CRT 

1429 ) 

1438 ERCHR ECU iSK ? CODE FOR EBERK CHARACTER < ESCAPE) 

1421 BRT/tB ECU O920H j LOCATION Cf START OF BRANCH TABLE IN ROM 
1432 CR E9U 0OH j CODE FOR CARRIAGE RETURN 


00«J 

0929 

0000 
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ORIGINAL page is 

OF POOR QUALITY 


ISIS-H $080/8085 MACRO 


LOC cei LINE 

0915 1433 

W6F 1434 

O0FF 1435 

060fl 1436 

0060 1437 

1438 

1439 

1448 
1441 

000F 1442 

007F 1443 

1444 

1445 

iii£ 

0015 1447 

0SFF 1448 

1449 

1450 

00OC 1451 

«0C 1452 

08DD 1453 

mt 1454 

00DO 1455 

06DE 1456 

6060 1457 

0063 1458 

0080 1459 

3040 1469 


1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 
1479 

1471 

1472 

1473 

1474 

1475 


0449 21930? 1476 

644C 3614 1477 

1478 

944£ 4E 1479 

944F CDF4S5 1480 

0452 23 1481 

0453 *5 1482 

6454 C2JE04 l<f83 

1484 

1465 

i486 

1437 


ASSEMBLES/ Y3.0 MQNITR PfiGE 28 


SOURCE STATEMENT 

ESC &} 1SH ; CODE FOR ESCAPE CHARACTER 
HCHfiR EQU 6FH s MASK TO SELECT LOME?. HEX CHAR ROM EYTE 
INYRT EQU SFRJ ; MASK TO INVERT HALF BVTE P-fiG 
LF EQU 0fiH j CODE FOR LINE FEED 
LOWER EQU 0 ) DENOTES LOHEP. HfiLf OF BVTE IN ICHC 
/LSGNON EQU — ; LENGTH Cf SIGNON MESSRS - DEFINED LATER 
jMNSTK EPJ — J START OF MONITOR STACK - DEFINED IN 
i KEYBOARD MONITOR 

; NODS EQU — J NUMBER OF VALID COMMANDS - DEFINED LATER 
NEWLN EQU 0FH ; MASK FOR CHECKING MEMORY ft£{R DISPLAY 
PRTV0 EQU 87FH ; MASK TO CLEAR PARITY BIT FROM CONSOLE CHAR 
fRflMST EQU — ; START ADDRESS OF RfiM - DEFINED IN 
J KEYBOARD MONITOR 

;RTfi3S EQU — i SIZE OF ENTRY IN RTfiS TABLE 

TERM EQU 1EH J IDE FOR IC0 TERMINATING CHARACTER C ESCAPE) 

UPPER EQU 6FFH ; DENOTES UPPER HfiLF OF BYTE IN ICHD 

i 

i PRO-LOG FtiURTES 

CHIN ESU 6DCH ; UflRT DfiTfl INPUT PORT 
CNOUT EQU eOCH ; UflRT DfiTfl OUTPUT PORT 
CSTflT F0i SDDH ; CONSOLE STATUS PORT 
CDflTft EQU 0DCH 3 CONSOLE DATA PORT 
CONCP EQU 0DDH 3 CONSOLE CONTROL PORT 
COfECP EQU 0OEH ; CONSOLE SYSTEM CONTROL PORT 
URTPC EQU 080H ; UflRT PORT CONTROL WORD 
URTSPC EQU 03H ; UflRT SYSTEM PORT CONTROL WORD 
TBE EQU 80H ; TERMINAL BUFFER EMPTY FLfiG 
RBF EQU m i RECIEVE BUFFER FULL FLAG 


TTY MONITOR ENTRY POINT 


J 


; PRINT SIGNON MESSAGE 

i 

GO: 

LXI HfSGHON ; GET BOOSES OF SIGNON (ESSfiGE 
mi Bi LSGNON ) COUNTER FOR CHARACTERS IN MESSAGE 
MSGL: 

MOV C,N ; FETCH NEXT CHflR TO C REGISTER 
CflLL CO ; SEND JT TO TIE CONSOLE 
IHX H i POINT TO fEMT CHARACTER 
OCR B ; DECREMENT BYIE COUNTER 
JNZ MSGL 3 RETURN FOR (EXT CHARACTER 


I 
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ISIS-!! 8880/8085 WRO ASSEMBLER* VI 0 


M0HI7R PAGE iS 


ORIGINAL PAGE IS 
OF POOR QUALITY 


LCC OBJ LINE 


SQUFCE STATEMENT 


0457 21E320 
04SA F3 

0458 0E2E 
0450 CD050S 
04<s0 C36304 

04b" CD2C06 
04« CD8506 

446? ?? 

?R 010500 
4(fD 216507 

0470 BE 
6471 CH7C04 

0474 23 

0475 00 
0475 027004 
0473 C21E06 

.0470 21A70? 

0477 05 

0450 09 

0451 7E 

0452 23 

0453 & 

0484 -cF 

0485 E? 


1463 » 

1433 j COMMAND RECOGNIZING ROUTINE 

1430 ! 

1491 t 

1493 ) 

1434 i FUNCTION: GETCM 

1495 ) INPUTS: NWE 

1496 ! OUTPUTS: NOfE 

1437 l CALLS: GETCH> ECHO* ERROR 
1493 s DESTROYS: ft, B, C, H L F/F'S 

1439 ) DESCRIPTION: GETCM RECIEVE5 PN INPUT CHARACTER FROM THE USER 
1530 J 
SM } 

1502 i 

1503 ; 

1594 j 

1505 i 

1506 ; 

1507 J 

1508 GETCM- 

1509 LXI H,MNSTK ; RLWflVS WANT TO RESET STACK PTR TO MONITOR 

1510 SPHL i /STARTING VALUE SO ROUTINES NEEDN'T CLEAN UP 

1511 MVI C , * ) PROMPT CHARACTER TO C 

1512 CAUL ECHO i SEND PROMPT CHARACTER TO USER TERMINAL 

1513 JMP GTC03 } HANT TO LEAVE ROOM FOR RST BRANCH 

1514 GTC03: 

1515 CALL GETCH ; GET COMMAND CHARACTER TO A 

1516 CALL ECHO i ECHO CHARACTER TO USER 

1517 MOV fbC ; PUT COMMAND CHARACTER INTO ACCUMULATOR 

1518 LXI B,NCMOS ; C CONTAINS LOOP AND INDEX COUNT 

1519 LXI H,CTAB ; HL POINTS INTO COMMAND TABLE 

1520 GTC05: 

1521 CMP M ) COMPARE TABLE ENTRY AND CHARACTER 

1522 JZ GTC10 i BRANCH IF EQUAL - COMMAND RECOGNIZED 

1523 I NX H i ELSE INCREMENT TABLE POINTER 

1524 OCR C ; DECREMENT LOOP COUNT 

1525 JNZ GTC05 ; BRANCH IF NOT AT !r iLE END 

1526 JMP ERROR J ELSE COMMAND CHARACTER IS ILLEGLE 

1527 GTC18: 

152S LXI UCAOR s IF GOOD COMMAND, LOAD ADDRESS OF TABLE 

1529 j /OF COWAND ROUTINE ADDRESSES 

1530 DAD B i ADD WHAT IS LEFT OF LOOP COUNT 

1531 DAD B j ADD AGAIN - EACH ENTRY IN CAOR IS 2 BYTES LONG 

1532 MOV Aiil J GET LSP Cf ADDRESS OF TABLE ENTRY TO A 

1533 1NX H ; POINT TO NEXT BYTE IN TABLE 

1534 MOV Ml i GET MSP CF ADDRESS OF TABLE ENTRY TO H 

1535 MOV LA j PUT LS? OF ADC'RESS OF TABLE ENTRY INTO L 

1536 PCHL i NEXT INSTRUCTION COMES FROM COMMAND ROUTINE 

1537 i 
1533 ) 

1533 si 

1540 i 

1541 j 

1542 i 


AND RTTEKFTS TO LOCATE THIS CHARACTER IN ITS COMMAND 
CHARACTER TABLE IF SUCCESSFUL THE ROUTINE 
CORRESPONDING TO THIS CHARACTER IS SELECTED FROM 
A TABLE OF COMMAND ROUTINE ADDRESSES, AND CONTROL 
IS TRAMSFEEED TO THIS ROUTINE IF THE CHARACTER 
DOES NOT HATCH ANY ENTRIES, CONTROL IS PASSED TO 
THE ERROR HANDLER. 


COMMAND IMPLEMENTING ROUTINES 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


ISIS-II $0$0/iQ85 MACRO ASSEMBLER, Y2.0 HONITR PAGE 20 


IOC OBJ LINE SOURCE STATEMENT 


0486 0E02 

0493 CC-GSG6 
0488 Di 
048C El 

0480 CDFF05 
8430 7C 
0491 CM406 

0494 70 

0495 CDD406 

0499 0E20 
049R CDO506 
0490 7E 
049E CDD406 
04P1 CDAO06 


04A4 D2AD04 
04R7 CDFF05 
04 RA C257Q4 

04RO 23 
04R£ 70 
94RF EeflF 

8481 C29804 
0484 C2SO04 


«4g7 CO2306 


1542 ; 

1544 ; 

1545 i 

1546 i 

1547 i 

1548 j FUNCTION: DCMD 

1549 i INPUTS: NONE 

1550 i OUTPUTS: NONE 

1551 ; CAULS: ECHO- NMOUT, HILO, QETCfl- CROUT, GETNN 
1532 ) DESTROYS: A,8,C,D,E,H,LF/F'S 

1552 i DESCRIPTION: DC® IMPLEMENTS THE DISPLAY MEMORY <t<) COMMAND 

1554 i 

1555 DC®: 

1555 ttVI C<2 i GET 2 NUMBERS FROM INPUT STREAM 
1557 CALL GETNM 

155-9 POP D ) ENDING ADDRESS TO DE 

1559 POP H ; STARTING ADDRESS TO HL 

1560 ECHOS- 

1561 CALL CROUT J ECHO CARRIAGE RETURN/LINE RED 

1562 MOV A,H ) DISPLAY ADDRESS OF FIRST LOCATION IN LINE 

1553 CALL NHOUT 

1564 MOV ftL i ADDRESS IS 2 BYTES LONG 
1555 CALL NMOUT 

1566 DCM10: 

1567 HVK C,' ' 

1568 CALL ECHO ) USE BLANK AS SEPARATOR 

1569 MOV AM ) GET CONTENTS OF NEXT MEMORY LOCATION 

1570 CALL NMOUT ) DISPLAY CONTENTS 

1571 CALL HILO i SEE IF ADDRESS OF DISPLAYED LOCATION IS 

1572 i /GREATER THAN OR EQUAL TO ENDING ADDRESS 

1573 FALSE DCM15 ; IF NOT , MORE TO DISPLAY 
1574+ JNC DCM15 

1575 CALL CROUT ) CARRIAGE RETURN/LINE FEED TO END LINE 

1576 JHP GETCM ) ALL DONE 

1577 DCM15: 

1578 INX H a IF MORE TO GO, POINT TO NEXT LOC TO DISPLAY 

1579 MOV FLL J GET LON ORDER BITS Of NEW ADDRESS 

1580 ANI NEHLN ) SEE IF LAST HEX DIGIT OF ADDRESS DENOTES 

1581 { /START OF NEW LINE 

1582 JNZ DCM10 ; HO - NOT AT END OF LINE 

1583 JHP DCM05 ) YES - START NEW LINE WITH ADDRESS 

1554 ) 

1535 i 

1587 i 
1598 f 

15b9 i FUNCTION- GCMD 

1590 ; INPUTS: NONE 

1591 ! OUTPUTS: NONE 

1592 i CALLS' ERROR, GETKD RSTT? 

1593 ; DESTROYS: fl,6,C,0,E,H,LF/F'S 

1594 ; DESCRIPTION: GC® IMPLEMENTS THE BEGIN EXECUTION <G) COMMAND, 

1595 ; 

1596 GC®* 

1597 CALL CEniX ; GET ADDRESS <.IF PRESENT) FPQH INPUT STREAM 
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ORNSJMAL PAGE is 
OF POOR QUALITY 


ISIS-!! M80.^HfiCR0 flSSBBLERi W.fl HOHITR PfiGE 21 


LOC 08 J LIHt SOURCE STATEMENT 


04SA D2CC04 
04BD 7ft 
04BE FE0D 
04C9 C21E36 
04C2 21F220 
04C6 71 
04C? 23 
04C8 70 
84C9 C3D204 

WCC 7A 
04CD FE0D 
04CP C21E06 

0402 C32593 


0405 0E«i 
0407 CD6806 
04OA 3EFF 
0400 32=020 
04DF Oi 

04E9 CD2C85 
040 4F 
04E4 CD95SS 
04E7 79 
04E8 FE1B 
04ER CA1S05 
04EO C07E97 

04F0 DAE894 
040 CD6307 

94F6 D210O5 
94F? CDE805 
04FC 4F 
04FD CO4407 
0530 :?FO20 
0303 B7 
0504 C2O005 
5597 H 


1598 FALSE GCIi05 j ERftNCH IF NO NUMBER PRESENT 
1599+ JHC GCM05 

1608 MOV fli E > ) ELSE GET TERMINATOR 

1601 CPI OR i SEE IF CARRIAGE RETURN 

1682 JNZ ERROR ) ERROR IF NOT PROPERLV TERMINftTED 

1603 LX I H/PSftV f WANT NUMBER TO REPLACE SAVE PGM COUNTER 

1604 MOV ft C 

1605 INXH 

1606 MOV H*8 

1607 JMPGCM0 

1608 GCM65: 

1699 MOV ArD ; IF NO STARTING ADDRESS* MAKE SURE TOT 
1619 CPI CR ! /CARRIAGE RETURN TERMINATED COMMAND 
1511 JNZ ERROR J ERROR IF NOT 

1612 GCM10: 

1613 JMP RSTOR ; RESTORE REGISTERS AND EEGIN EXECUTION 

1614 J (RSTOR IS IN KEYBOARD MONITOR) 

1615 } 

1615 ; 

1618 * 

1619 ; 

1629 i FUNCTION: ICMD 

1621 j INPUTS: HONE 

1622 ; OUTPUTS: NONE 

1623 i CALLS: ERROR* ECHO* GETCH* VALDL VALDG* CHVBN* STHLF* GETNMi CROUT 

1624 j DESTROYS: A* B* C, D* E* H* L F/F'S 

1625 j DESCRIPTION: ICMD IMPLEMENTS THE INSERT CODE INTO MEMORY (I> COMItfHD. 

1626 s 

1627 ICMD: 

1623 MVI C*1 

1629 CALL GETNH ; GET SINGLE NUMBER FROM INPUT STREAM 

1630 WV1 A* UPPER 

1631 STA TOP i TEMP HILL HOLD THE UPPER/LOMER. HALF BYTE FLAG 

1632 POP D l ADDRESS OF START TO DE 

1633 ICM95- 

1634 CALL GETCH ! GET A CHARACTER FROM INPUT STREAM 

1635 MOV C* A 

1536 CAUL ECHO s ECHO IT 

1637 MOV A*C i PUT CHARACTER BACK INTO A 

1638 CPI TERM * SEE IF CHARACTER IS A TERMINATING CHARACTER 

1639 JZ ICM25 s IF SO* ALL DONE ENTERING CHARACTERS 
1649 CALL VALDL l ELSE SEE IF VALID DELIMITER 

1641 TRUE ICM95 * IF SO SIMPLY IGNORE THIS CHARACTER 
1642+ JC ICM95 

1543 CALL VALDG * ELSE CHECK TO SEE IF VALID HEX DIGIT 
1644 FALSE ICM29 ; IF NOT* BRANCH TO HANDLE ERROR CONDITION 
1645+ JHC ICH20 

1646 CALL CNY8N * CONVERT DIGIT TO BINARY 

1647 MOV Ci A * MOVE RESULT TO C 

1648 CALL STOP ; STORE IN APPROPRIATE HALF WORD 

1649 LDA TEMP ; GET HALF BYTE FLAG 
1659 ORA A i SET F/F'S 

1651 JNZ ICH10 ; BRANCH IF FLAG SET FOR UPPER 

1652 I NX D i IF LOHERj INC ADDRESS Of EY^E TO STORE III 
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tSIS-rr 8038/3085 MACRO ASSEMBLER, VX 0 


ORIGINAL PAGE IS 
OF POOR QUALITY 

WNITR PAGE 22 


LCC OBJ LINE SOURCE 5TRTEHEHT 


0*503 EFF 
956A 32FD20 
0500 C2E004 

0510 003907 
0513 C31E9S 

8516 CD3907 
0515 CDFF05 
051C C35704 


851F 0E93 

0521 COS806 

0524 Cl 

0525 El 
$526 M. 

0527 S5 
0523 62 
$529 SB 
052fl 7E 

0522 60 
0520 69 
952D 77 
052E 03 
052F 78 
0539 61 
9531 005784 

9534 13 

9535 El 
0536 CDAD06 

0539 025794 
6530 C32705 


1653 ICN10: 

1654 SR! IHYRT j TOGGLE STATE OF FLAG 

1655 STf) TEMP j PUT NEW VALUE OF RAG BACK 

1656 JMP ICH05 i PROCESS NEXT DIGIT 

1657 ICM20: 

1658 Cf3_L STHF0 ; ILLEGAL CHARACTER 

1659 JMP ERROR j HAKE SORE ENTIRE BYTE FILLED THEN ERROR 
1668 ICM25: 

1661 CALL STHF0 j HERE FOR ESCAPE CHARACTER - INPUT IS DOtE 

1662 CALL CROUT ; ADD CARRIAGE RETURN 

1663 JHP GETCM 

1564 ; 

1455 f 

1657 ; 

1668 3 

1669 ; FUNCTION: MCHO 

1670 ; INPUTS: NGHE 

1671 ; OUTPUTS: NOTE 

1672 ; CALLS: GETCM, HILO, GETNH 

1673 i DESTROYS: P.&C^BHLF/F'S 

1674 i DESCRIPTION: MCI© IMPLEMENTS THE MODE DATA IN MEMORY (H) COMMAND. 

1675 i 

1676 MCMD: 

1677 Wl C<3 

1678 CALL GETNM ; GET 3 NUMBERS FROM INPUT STREAM 

1679 POP B 3 DESTINATION ADDRESS TO BC 
1630 POP H ; ENDING ADDRESS TO H. 

1681 POP D 3 STARTING ADDRESS VO IE 

1682 MCM05: 

1683 PUSH H ; SAYE ENDING ADDRESS 

1684 MOV HiD 

1685 m LE ; SOURCE ADDRESS TO HL 

1686 MOV fl,H 3 GET SOURCE BYTE 

1687 MOV H»B 

1688 MOV LC 3 DESTINATION ADDRESS TO HL 

1689 MOV HA 3 MOVE BYTE TO DESTINATION 

1698 INX B ; INCREMENT DESTINATION ADDRESS 

1691 MOV A.B 

1692 ORA C 3 TEST FOR DESTINATION ADDRESS OVERFLOW 

1693 JZ GETCM j IF SO, CRN TERMINATE COMMAND 

1694 INX D ; INCREMENT SOURCE ADDRESS 

1695 POP H 3 ELSE, GET BACK ENDING ADDRESS 

1696 CALL HILO i SEE IF ENDING ADDR>=SOURCE ADDR 

1697 FALSE GETCM ; IF NOT, COMMAND IS DONE 
1693+ JNC GETCM 

1699 JMP MCM85 i MOVE ANOTHER BYTE 

1700 ; 

1701 3 

1703 i 

1704 ; 

1705 ; FUNCTION: SCUD 
1796 ; INPUTS: NONE 
1787 ; OUTPUTS: NONE 
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fiONITR PAGE 22 


ORIGINAL page is 
of POOS QUAUty 


IOC C*8Jr LIKE SOURCE STATEMENT 


953F CD2366 
0542 CS 
6543 Ei 

0544 7A 
6545 FE26 
6547 CR4F05 
054ft FE2C 
0 ! .JC C25704 

05^ 7E 
6553 CONK 
6553 0E2D 
0:o3 CD0506 
6558 CD3306 

655B 023F65 
055E 71 

655F 23 
0550 C24465 


6553 CO2C05 
6555 4F 
0557 CD6505 
655ft 7? 
05SB FE0D 
S55D C27585 
6576 COEF05 
0573 C35784 


3575 4p 
0577 CD2637 
657fl C5 
057ft £1 
•ra.'C 6EI0 
65~E u'0365 


1708 i CALLS: ETHX.GETCrUiflQUT.ECHO 
1739 ; DESTROYS: fi.B.C.D.E.H.LF/FS 

1710 i DESRIPTION: SCMO IMPLEMENTS THE SUBSTITUE INTO EMORY (S> COMMAND. 

1711 i 

1712 SCI©: 

1713 CALL GETHX l GET ft NUAEER. IF PRESENT, FROM INPUT 

1714 PUSH B 

1715 POP H i GET NUMBER TO H - DENOTES MEMORY LOCATION 
1715 ECHOS- 

1717 MOV AD } GET TERMINATOR 

1718 CPI ' 7 i SEE IF SPfiCE 

1719 JZ SCIH0 > YES - CONTINUE PRESSING 

1729 CPI V ; ELSE, SEE IF COW 

1721 JNZ GETCM i NO - TERMINATE COMMAND 

1722 SCM10- 

1723 MOV ft. M i GET CONTENTS OF SPECIFIED LOCATION TO ft 

1724 CALL HMOUT ; DiSPLfiV CONTENTS ON CONSOLE 

1725 NVI Ci 

1725 CflLL ECHO ; USE CASH FOR SEPARATOR 

1727 CflLL GETHX ; GET NBI VALUE FOR MEMORY LOCATION* IF ANV 

1728 FftLSE SCK15 ) IF NO YflLUE PRESENT* EKANCH 
•1729+ JNC gems 

1730 MOV M-C ) ELSE, STORE LONER 3 BITS OF NUMBER Bi7E«EP 

1731 SCM15: 

1732 INK H 5 INCREMENT ADDrJESS OF MEMORY LOCATION TO VIEW 

1733 JHP5CM05 

1734 * 

1725 ; 

1737 * 

1738 ; 

1739 i FUNCTION: XCHD 

1740 i INPUTS: NONE 

1741 ; OUTPUTS: NONE 

1742 ; CflLLS: <£TCH, ECHO* REGDS* SiTCM* ERROR* RGfiDR, MHGUL CROUT, GETHX 

1743 ; DESTROYS: A, B, C, D, E, H, L F/F'5 

1744 j DESCRIPTION: XCHD IMPLEMENTS THE REGISTER EXAMINE AND CHANGE '» 

1745 ; COMMAND. 

1746 i 

1747 XCHD: 

1748 CflLL GETCH ; GET FEGISTER IDENTIFIER 

1749 MOVC. ft 

1759 CALL ECHO ; ECHO IT 

1751 MOV ft, C 

1752 CPI CR 

1753 JNZ XCM05 ; BRANCH IF NOT CARRIAGE RETURN 

1754 CALL REGDS * ELSE* DISPLAY REGISTER CONTENTS 

1755 JMP GETCM ; THEN TERMINATE COMMAND 
1755 XCH05- 

1757 MOV C*A * GET PEISTER IDENTIFIER TO C 

1753 CALL RGADR ; CONVERT IDENTIFIER INTO RTA3 TABLE ftl’DR 

1759 FUSH B 

1750 POP H r PUT POINTER TO REGISTER ENTRY INTO HL 

1751 MYI C.' '■ 

1752 CALL ECHO .i ECHO SPACE TO USER 
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ICC OBJ LINE SOURCE STPTEMEHT 
‘353-1 7? ITS NOVfiiC 

0532 32FD20 1764 STfl TEHP s PUT SPACE INTO TEMP AS DELIMITER 

1765 XCH10: 

0535 3AFD20 1766 LDA TEMP ) GET TERMINATOR 

0533 FE20 1767 CPI ' • ) SEE IF BLANK 

958ft CA9205 1763 JZ XCM15 s VES - GO CHECK POINTER INTO TABLE 

0580 FE2C 1769 CPI ' i NO - SEE IF COMA 

058F C25704 1770 JHZ GETCN i NO - MUST 3E CARRIAGE RETURN TO END COMMAND 

1771 XCW15: 

0592 7E 1772 MOV AjM 

0592 37 1773 ORA A i SET F/F'S 

0594 029085 1774 JNZ XCIti.8 i BRANCH IF NOT AT END OF TABLE 

0597 COFF05 1775 CALL CROUT ) ELSE, OUTPUT CARRIAGE RETURN LITE FEED 

059ft 035704 1776 JMP GETCM / AND EXIT 

1777 XCM13- 

0590 E5 1773 PUSH H ; PUT POINTER ON STACK 

35SE5E 1779 MOV &K 

059F 1620 1780 HVI D,RAMST SHR 8 i ADDRESS OF SAVE LOCATION FROM TABLE 

05A1 23 1781 INK H 

03R2 46 1732 MOV M J FETCH LENGTH FLAG FROM TABLE 

05A3 D5 1733 PUSH 0 i SAVE ADDRESS OF SAVE LOCATION 

05R4 D5 1784 PUSH D 

05R5 El 1785 POP H i MOVE ADDRESS TO HL 

05P6 C5 1786 PUSH B J SAVE LENGTH FLAG 

05A7 7E 1737 MOV ft, M ; GET 8 BITS OF REGISTER ROM SAVE LOCATION 

05A8 CDD40S 1788 CALL NMOUT ; DISPLAY IT 

05RB FI 1789 POP PSH ; GET BACK LENGTH FLAG 

05AC F5 1798 PUSH PSH i SAVE IT AGAIN 

35AD 37 1791 ORA ft J SET F/F'S 

05AE CP, 8605 1792 JZ XCM20 ; IF 8 BIT REGISTER, NOTHING MORE TO DISPLAY 

0501 28 1793 DCX H ; ELSE, FOR 16 BIT REGISTER, GET LOWER 8 BITS 

05S2 7E 1794 MOV A, 11 

05B3 CC-D406 1795 CALL NMOUT ; DISPLAY THEM 

1796 XCM20: 

05B6 0E2D 1797 MVI C, '-' 

05BS CD0506 1793 CALL ECHO ; USE DASH AS SEPARATOR 

05BB CD3306 1799 CALL GETHX > SEE IF THERE 4S A VALUE TO PUT INTO REGISTER 

1300 ■ Fast XCM29 ; NO - GO CHECK FOR NEXT REGISTER 
05BE D2D6S5 1801+ JNC XCM39 / 

05C1 7A 1802 MOV At D ( 

05C2 32FD20 1803 STfl TBP j ELSE, SAVE TIE TERMINATOR FCP NON 

05CS FI 1804 POP PSH ; GET BACK LENGTH RJAQ 

05C6 El 1805 POP H ; PUT ADDRESS OF SAVE LOCATION INTO a 

05C7 37 1806 OPA A ; SET F/F'S 

05C3 CACD05 1807 JZ XCM25 s IF 8 8IT REGISTER, BRANCH 

05CB TO 1808 MOV M,3 ; SAVE UPPER 8 SITS 

S5CC 23 1889 OCX H i POINT TO SAVE LOCATION FOR LOWER 3 BITS 

1810 XCM25: 

05CD 71 1«1 MOV iiC ; STORE ALL OF 3 BIT OR LOWER 1/2 OF 16 SIT PEG 

1812 XCM27- 

05CE 118380 1813 LXI D,PTA3S ; SIZE if ENTRY IN RTSS TPELE 

05D1 El 1314 POP H ; POINTER INTO REGISTER TABLE STAB 

05D2 19 1815 DAD D ; ADO ENTRY SIZE TO POINTER 

05D3 C38505 1816 JMP XCM10 ; DO NEXT REGISTER 

1317 XCt-GO- 
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LOC OBJ LINE SOURCE STATEMENT 

8SD6 7fi 1318 MOV fi,D ; GET TERMIWITOR 

OSD? 32FD20 1819 STA TEMP ; SAVE IN MEMORY 

050ft Cl 1820 POP 0 i CLEAR STACK OF LENGTH FLAG AND ADCftESS 

G5DB 01 1821 FOP Dj /QF SAVE LOCATION 

05DC C3CE95 1822 JMP XCK27 j GO INCREMENT REGISTER TABLE POINTER 

1823 J 

1824 j 



1833 i 

1834 ; FUNCTION: Cl 

1835 ; INPUTS: NOtC 

1336 } OUTPUTS: ft CHARACTER FROM TTV 
1837 J CALLS: NOTHING 
1333 : DESTROYS: fbF/F'S 

1839 i DESCRIPTION: Cl WAITS UNTIL A CHfiRfiCTER HIS BEEN ENTERED AT THE 
1848 ; TTY AND THEN RETURNS THE CHARACTER, VIA THE H 

1841 5 REGISTER, TO THE CALLING ROUTINE THIS ROUTINE 

1842 ; IS CALLED BY THE USER VIA fl JURP TABLE IN RAM 

1843 ; 

1844 Cl: 

05DF DBDD 1845 IN CSTAT ; GET STATUS OF CONSOLE 

95E1 E540 1846 Ml RBF i CHECK FOR RECIEYER BUFFER FULL 

05E3 CADF95 184? JZ Cl ; NOT READY VET - WAIT 

OSES D6DC 1848 IN CNIN ; READY, GET CHfiRfiCTER 

05E8 ES7F 1849 ffll 7FH i AND IN 81111111 TO KILL PARITY BIT 

05EA C9 1850 RET > THAT'S IT 

1851 ; 

1852 ) 

1854 i 

1855 > 

1356 i FUNCTION: CNVBN 

1857 ; INPUTS: C - ASCII CHARACTER '0' -'¥ Oft 'A'-'F' 

1858 J OUPUTS: A - 0 TO F HEX 

1859 ; CALLS: NOTHING 

1863 ; DESTROYS: fcF.F'S 

1861 ; DESCRIPTION: CNVBN CONVERTS THE ASCII REPRESENTATION OF A HEX 
1862 ; DIGIT INTO ITS CORRESPONDING BINARY VALUE CNVBN 

1862 ; DOES NOT CHECK THE VALIDITY OF ITS INPUT. 

1864 } 

1865 GIVEN: 

05EB 7? 1866 HOY &C 

05EC 0630 1867 SUI '8 ' s SUBTRACT CODE FOR '0' FROM ARGUMENT 

05EE FE0A 1863 CPI 10 , HfiHT TO TEST FOR RESULT 0 TO 9 

S5F9 F3 1359 RM i IF SO, THEN ALL DONE 

05F1 D607 1373 SUI 7 i ELSE, RESULT BETWEEN 17 AND 22 DECIMAL 

95F3 C9 1871 RET ; SO RETURN AFTER SUBTRACTING BIAS CF 7 

1872 ; 


original 

0F POOR 
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LOC 09J 


95F4 DBDO 

e5Fe' e-:so 
S5F? CAF4S5 
05F3 79 
95FC D3DC 
3«E C? 


95FP 9E9D 
Cn01 CD3506 
0604 C9 


0695 4i 
9606 3E19 
0609 50 
9609 C29EK 


530 


LINE SOURCE STATEMENT 


1373 i 

1875 i 

1876 ) 

1377 i FUNCTION: CO 

1878 } INPUTS: C - CHARACTER TO OUTPUT TO TTY 

1879 i OUTPUTS: C - CHARACTER OUTPUT TO TTY 
1388 ; CALLS: NOTHING 

1881 ; DESTROYS: ft F/F'S 

1832 J DESCRIPTION: CO SENDS ITS INPUT ARGUMENT 70 THE TTY. 

1833 5 

1834 CO* 

1885 IN CSTAT > GET STATUS OF CONSOLE 
1386 ANI TBE ; SEE IF TRANSMITTER READY 

1887 JZ G ) ) NOT READY - WAIT 

1888 MOV A, C ; LOAD A WITH CHffifiCTER 

1889 OUT CNOUT i SEND CHARACTER 

1890 RET j ALL DONE 

1891 ; 

1892 i 

1894 ; 

1895 } 

1896 ; FUNCTION CROUT 
1397 i INPUTS: NONE 

1898 J OUTPUTS: NONE 

1899 ; CALLS: ECHO 

1909 ; DESTROYS: A,B,C,F/F'S 

1901 J DESCRIPTION: CROUT SENDS A CARRIAGE RETURN (AND HENCE A LINE 
1992 ; FEED ) TO THE CONSOLE 

1903 j 


1594 CROUT: 

1995 HVI C,CR 
1906 CALL ECHO 
1997 RET 

1908 i 

1909 > 

1911 ; 

1912 i 

1313 i FUNCTION: ECHO 

1914 J INPUTS: C - CHARACTER TO ECHO TO TERMINAL 

1915 i OUTPUTS: C - CHARACTER ECHOED TO TERMINAL 

1916 i CALLS: CO 

9517 i DESTROYS: ft.B,F/F'S 

1918 ; DESCRIPTION. ECHO TAKES A SINGLE CHARACTER AS INPUT AND, VIA 

1919 i THE MONITOR, SENDS THAT CHARACTER TO THE USER 

1920 ; TERMINAL A CARRIAGE RETURN IS ECHO® AS A CARRIAGE 

1921 ; RETURN LINE FEED, AND AN ESCAPE CHARACTER IS ECHOED AS t. 

1322 ; 

1923 ECHO: 

1924 NOV 3.C ; SAVE ARGUMENT 


1925 HVI A ESC 

1926 CMP 3 ; SEE IF ECHOING AN ESCAPE CHARACTER 

1927 JNZ ECHOS , NO - BRANCH 
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HOrtITR PAGE 27 


LQC ‘B * LIKE SOURCE STATEMENT 


96 vC 0E24 


060E GSF4Q5 
0611 3E0D 
0613 88 
8514 C21C06 
8617 0E3R 
8613 CDF 485 

861C 48 
061D C9 


061E 0£2fl 
9629 CD0SO6 
9622 C8FF05 
9626 C25704 


0623 27 
0619 2f 
9623 C? 


1923 11V I C. '$* ) YES - ECHO hS I 
1329 ECH05: 

1930 CfiLL CO ; 00 OUTPUT THROUGH MONITOR 
1921 NVI A> CR 

1932 CMP B j SEE IF CHARACTER ECHOED HAS A CARRIRGE RETURN 

1933 JNZ ECH10 j NO - NO NEED TO TAKE SPECIAL ACTION 

1934 MVl CiLF ; YES - WANT TO ECHO LUC FEED; TOO 

1935 CfiLL CO 

1936 ECH10: 

1937 NOV OB ; RESTORE ARGUMENT 

1938 RET ; RETURN 
1919 t 

1948 } 

1942 i 

1943 ; 

1944 i FUNCTION: ERROR 

1945 ) INPUTS: NONE 

1946 ) OUTPUTS: NONE 

1947 } CALLS: ECHO CRQUT; GETCtl 

1948 ; DESTROYS: fcB.C.F/F'S 

1949 i DESCRIPTION: ERROR PRINTS THE ERROR CHARACTER (CURRENTLY AN ASTERISK) 

1950 i - ON THE CONSOLE; FOLLOWED BY A CARRIAGE RETURN LINE FEED; 

1951 ; AND THEN RETURNS CONTROL TO THE COMMAND RECOGNIZER. 


1952 ! 

1953 ERROR- 

1954 HVI C,'*' ; LOAD ASTERISK INTO REGISTER C 

1955 CALL ECHO ; SEND * TO CONSOLE 

1956 E(IT: CALL CROUT i SKIP TO BEGINNING OF NEXT LINE 

1957 JMP GETCtl i TRY AGAIN FOR ANOTHER COMMAND 

1958 ; 

1959 j 

1961 ; 

1962 ; 

1963 ; FUNCTION: FRET 

1964 ; INPUTS: NOTE 

1965 ; OUTPUTS: CARRY - fiLHfiYS 0 

1966 j CALLS- NOTHING 

1967 i DESTROYS: CARRY 

1968 J DESCRIPTION: FRET IS JUMPED TO BY ANY ROUTINE THAT WISHES TO 

1969 ; INDICATE FAILUFf Oft RETURN. FRET SETS THE C°P.Y 

1970 ; FALSE; DENOTING FAILURE, fif© TffiN RETURNS TO THE 

1971 } CALLER OF THE ROUTINE INVOKING PET. 

1972 ; 

1973 FRET- 


1974 STC , FIRST SET CARRY TRUE 

1975 CMC ; THEN COMPLEMENT IT TO HAKE IT FALSE 

1976 RET ; RETURN APPROPRIATELY 
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LOC CSJ 


K2C ccofe? 
962F E^F 
6631 4F 
t»I2 C9 


0633 65 
0534 218060 
063? 1E00 


0635 CD2C06 
062C 4F 
363D CD6506 
0640 CD7E07 

5643 D25206 
0646 51 

9647 E3 
0646 Cl 
0645 a 
O640 73 

9648 3? 


LINE SOURCE rflTEJSt’ 

1533 i :^75; NQh£ 

1584 ; "XiTPUTS: C - NEXT CHARACTER IN INPUT STREAM 

1585 Jii_v ?! 

1536 ; DESTROYS: i „*F/F'S 

158? i DESCRIPTION. GETCH RETURNS THE NEXT CHARACTER IN THE INPUT STREAM 
1583 t TO THE CfiLLlNQ PROGRAM. 

1583 i 
m GETCH: 

1551 CALL Cl j GET CHARACTER FROM THE TERMIHfiL 

1552 flNI PRTY0 l TURN OFF PARITY BIT IN CASE SET BV CONSOLE 

1553 NOV C*R * PUT VfiLUE IN C REGISTER FOR RETURN 

1554 RET * RETURN 
1595 i 

1556 J 

1358 i 
1559 ; 

2000 J FUNCTION : GETHX 

2001 i INPUTS: NONE 

2002 J OUTPUTS: 8C - 16 BIT INTEGER 

2003 i D - CHfiRfiCTER WHICH TERMINATED THE INTEGER 

2004 * CRRRV - 1 IF FIRST CHfiRfiCTER HOT DELIMITER 

2005 J - 0 IF FIRST CHfiRfiCTER IS DELIMITER 

2006 ; CALLS: ECHO; GETCH* VflLDL VfiLDG* CNVEN* ERROR 
2607 * CESTROVS: A*fe*C*D,EF'F'S 

2008 ; DESCRIPTION: GETHX ACCEPTS A STRING OF HEX DIGITS FROM THE INPUT 

2009 ; 

2010 ; 

2011 ; 

2912 ; 

2013 } 

2014 ; 

2015 ; 

2016 ; 

2017 * 

2018 ; 

2015 * 

2920 i 

2021 GETHX: 

2022 PUSH H ; SAVE HL 

2023 LXI H* 0 * INITIALIZE RESULT 

2024 MVI E*0 ! INITIALIZE DIGIT FL JS TO FALSE 

2025 GHX05: 

2026 CALL GETCH ; GET A CHfiRfiCTER 
2827 MOV C* A 

2928 CALL ECHO * ECHO THE CHfiRfiCTER 
2625 CfiLL VALDL ; SEE IF DELIMITER 
2030 FALSE GHX10 ; NO - BRANCH 
2031+ JNC GHX10 

2912 MOV D*C * VES - fiLL DONE* BUT HRHT TO RETURN DELIMITER 

2033 PUSH H 

2034 FOP 8 ; MOVE REB’vT TO BC 

2035 PC? H ; RESTORE & 

>036 NOV fi*E ! GET FLAG 
2937 ORA A ; SET F/F'S 


STREAM (AND RETURNS THIER VfiLUE RS A 16 BIT BINARV 
INTEGER. IF MORE THAN 4 HEX DIGITS fiRE ENTERED* 

ClNLV THE LAST 4 ARE USED. THE HUMBER TERMINATES WHEN 
fi VFfLID DELIMITER IS ENCOUNTERED. THE DELIMITER IS 
ALSO RETURNED AS AN OUTPUT OF THE FUNCTION. ILLEGAL 
CHARACTERS (NOT HEX DIGITS OR DELIMITER) CAUSE AN 
ERROR INDICATION. IF THE FIRST (VALID CHARACTER 
ENCOUNTERED IN THE INPUT STREfiM IS NOT fi DELIMITER, 
GETHX HILL RETURN WITH THE CARP/ BIT SET TO if 
OTHERWISE THE CfiRRV BIT IS SET TO e RNO the CONTENTS 
OF BC ARE UNDEFINED. 
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OflSTGiNAL PAGE ic 

° F POOR QUAtffY 


MOfllTP, 


LQC OBJ 


LINE SOURCE STRTEMENT 


0640 C22"07 
CA2906 

0652 COES? 

0655 D21E06 
0558 CDEB05 
865B 1EFF 
085) 29 
865E 29 
0S5F 29 
0888 29 
0881 08S0 

0663 4F 

0664 89 

0665 C32906 


0663 2E32 
066R 79 
0663 E603 
0660 C8 
066E 67 

066F C033K 

0672 021E96 

0675 C5 

0676 2D 

0677 25 

0673 CA0406 
657B 7ft 
057C FE0D 
067E CA1E36 
0631 C36F36 


2033 JN2 SRET i IF FLAG NCfM, A NUMBER HRS SEEN FOUND 
2039 JZ PET i ELSE/ DELIMITER HftS FIRST CHARACTER 
7Q43 QHX10’ 

2041 CAIi’VALM ) IF NOT DELIMITER. SEE IF DIGIT 

2042 FALSE ERROR ) ERROR IF HOT ft VftLIO DIGIT, EITHER 
2043+ JNC ERROR 

2044 CALL CflVBN i CONVERT DIGIT TO ITS BINARY VfiLUE 

2045 Wl E0FFH J SET DIGIT FlftG NOH-0 

2046 GAD H j *2 

2047 DfiD H i *4 

2043 OflD H i 48 

2049 CAD H ; +16 

2056 Wl 3,0 l CLEAR UPPER 8 BITS OF ec PAIR 

2051 MOV C,ft j BIflRY VflLUE OF CHftRftTER INTO C 

2052 DAO B J ftDD THIS VALUE TO PARTIAL RESULT 
2353 JMP GHX05 i GET NEXT CHftRftTER 

2054 i 
2355 ) 

2357 j 

2358 l 

2059 ! FUNCTION: GETNM- 

2063 i INPUTS: C - COUNT OF NUMBERS TO FIND IH INPUT STREfiM 

2361 i OUTPUTS: TOP OF STACK - NUMBERS FOUND IH REVERSE ORDER (LAST OH TOP 

2062 ; OF STRCK) 

2063 t CALLS: GETHX, HILO, ERROR 
2364 ; DESTROYS: ft, 8, C,0,E,H,L,F/F'S 

2065 ; DESCRIPTION: GETHH FlfDS ft SPECIFIED COUNT OF NUMBERS, BETWEEN 1 

2066 ; AND 3, INCLUSIVE IN THE INPUT 

2067 , STREfiM PHD RETURNS THEIR VALUES Oft THE STACK. IF 2 

2063 j OR MORE NUMBERS ftRE REQUESTED, THEN THE FIRST MUST EE 

2069 ; LESS THflN OR EQUAL TO THE SECOND, OR THE FIRST AND 

2370 j SECOND NUMBERS HILL BE SET EQUAL THE LAST NUMBER 

2071 ; REQUESTED MUST BE TERMINATED BY ft CftRRIP.GE F.E^JFl! 

2072 ; OR AN ERROR INDICATION HILL RESULT. 


2066 ; AND 3, INCLUSIVE IN THE INPUT 

2067 , STREfiM RND RETURNS THEIR VALUES Oft THE 

2063 j OR MORE NUMBERS APS REQUESTED, THEN TH 

2069 ; LESS THflN OR ECUfiL TO THE SECOND, OR 1 

2370 j SECOND NUMBERS HILL BE SET EQUAL THE 

2071 ; REQUESTED MUST BE TERMINATED BY ft CARP 

2072 ; OR AH ERROR INDICATION HILL RESULT. 

2973 ; 

2074 GETNM: 

2075 HVI L. 3 i PUT MAXIMUM fiRGUMENT COUNT INTO L 

2076 MOV ft, C i GET THE ACTUAL ARGUMENT COUMT 

2077 fifll 3 ; FORCE TO MAXIMUM OF 3 

2073 R2 s IF 0, DON'T BOTHER TO DO ANYTHING 
2979 MOV H»ft i ELSE, PUT fiCTUfil COUNT INTO H 
2038 GNM05: 

2031 CALL GETHX ; GET NUMBER PROM INPUT STREfiM 
2082 FALSE ERROR ; ERROR IF NOT THERE - TOO FEH NUMBERS 
2383+ JNC ERROR 

2084 PUSH B ; ELSE, SfiVE NUMBER Oft STACK 
2385 MR L ; DECREMENT MAXIMUM fiRGUMENT COUNT 
20S6 OCR H ; DECREMENT ACTUAL ARGUMENT COUNT 
208? JZ Gfi!U0 ; BRfiftCH IF NO MORE NUMBERS WANTED 
2383 MOV ft, D i ELSE, GET NUMBER TERMINATOR TO ft 
2089 CPI CH i SEE IF CARRIAGE RETURN 
2098 JZ ERROR ; ERROR IF SO - TOO FEH NUMBERS 

2091 JHP GNN65 ; ELSE PROCESS NEXT NUMBER 

2092 GNftiB: 
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LQC OBJ LINE SOURCE STATEMENT 

8684 7ft 2093 TOY fbO ; HEN COUNT 0# CHECK LAST TERMINATOR 

0685 FH5D 2094 CPI CR 

0637 C21EK 2095 JNZ ERROR | ERROR IF NOT CARRIAGE RETURN 

068A OlfFFF 2996 LXI Bi 9FFFFH i HL GETS LARGEST NUMBER 

968D 7D 2097 TOY ft> L j GET HHRT^S LEFT OF MAXIMUM fiRG COUNT 

068E B7 2093 ORA A i CHECK )‘0R 0 

958F CA9706 2099 JZ GNK20 MF YES, 3 NUMBERS HERE INPUT 

2109 GNM15: 

9692 C5 2101 PUSH B i IF HOT; FILL fmvm ARGUMENTS KITH 0FFFFH 

9692 2D 2182 OCR L 

0694 C292G6 £103 JNZ GNUS 

2104 GNM20, 

0697 Cl 2105 POP B i GET M 3 ARGUMENTS OUT 

0698 01 2106 POP 0 

0699 El 2107 POP H 

069A '3DfiD06 2108 CALL HILO ; SEE IF C IRST 9' SECOfID 
2109 FALSE GNH25 ; NO - BRANCH 
0690 D2A206 2110+ JNC GHM25 

06A0 54 2111 MOV D,H" 

0SA1 5D 2112 WLLi YE5 - MAX' 'i . M> ECUAL TO THE FIRST 

2112 GNM25: 

0SP2 E2 2114 XTR 5 PUT FIRST- OH STACK - GET RETURN RODR 

06A3 DC 2115 PUSH D i PUT SECOND OH STACK 

06R4 C5 2115 PUSH 8 i PUT THIRD ON STACK 

GGHS E5 2117 PUSH H ; PUT r-JCTURN RDDRESS ON STACK 

2119 GNH38: 

06R6 3D 2119 OCR A ! DECREMENT RESIDUAL COUNT 

05A7 F8 2120 RH ) IF NEGATIVE PROPER RESULTS ON STACK 

06A3 El 2121 TOP H i ELSE, GET RETURN ADOR 

26r9 E3 2122 XTHL ; REPLACE TOP RESULT WITH RETURN KfOR 

06AA C2A606 2122 JMP GNM30 ; TRV AGAIN 

2124 i 
■2125 i 

2126 1 T 

2127 ; 

2123 ; 

2129 } FUNCTION: HILO 

2130 ; INPUTS DE - 16 BIT INTEGER 

'2131 : HL - 16 BIT INTEGER 

2132 ; OUTPUTS: CARRY - 8 IF HL<DE 

2133 ) - 1 IF H_>=DE 

2134 } CALLS' NOTHING 

2135 J DESTROYS: F7F'S 

2136 i DESCRIPTION: HILO COMPARES THE 2 16 BIT INTEGERS IN HL AND DE THE 

2137 i INTEGERS ARE TREATED AS UNSIGNED NUMBERS. THE CARRY 

2133 i BIT IS SET ACCORDING TO THE RESULT OF THE COMPARISON 

2139 J 

2140 HILO: 

06AD C5 2141 PUSH 8 : SAVE BC 

S6P.E 2142 MOV B.R i SAVE ft IN B REGISTER 

06 AF E3 2143 PUSH H ; SAVE hL PAIR 

06E0 7ft 21*4 TOY ft, D ; CHECK FOR DE = 0080H 

0651 33 2145 ORA E 

06B2 CfiCS‘36 2146 JZ HIL35 ; HE’PE AUTOHATICALLY DONE IF IT IS 

9655 23 2147 INK H , IHCF3ENT H EY 1 
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LOC OBJ LIfC SOURCE STATEMENT 


7 C 

MS’ 55 
GSR CRCE96 

ore a 

865t 05 
06ED IEFF 
06EF fifl 
96C0 57 
5«Ci :EFF 
06C3 fiB 


2140 MOV ft»H ; NANT TO TEST FOR 0 RESULT AFTER 

2149 ORA L i /INCREMENTING 

2153 JZ HIL05 ; IF SO, HL MUST HAVE CONTAINED 0FFFFH 

2151 POP H ) IF NOT* RESTORE GRIGIANAL HL 

2152 PUSH D > SAVE DE 

2153 MVI A/0FFH ) WANT TO TAKE 2'S COMPLEMENT OF DE CONTENTS 

2154 XRR D 
2JS3 HOV D,A 

2156 fWI AiOFFH 

2157 XRPE 


06C4 5F 
06C5 13 
06C5 7D 
«C7 33 
(€ C3 7C 
L6C9 2ft 
06CA 01 
06CB 73 
06CC Cl 
«CD C9, 

OSCE El 


2158 MOVF/4 

2159 IHX 0 > ?'S COMPLEMENT CF DE TO DE 
2168 MOV A,L 

2161 ADO E i ADO ft. AND CE 

2162 MOV A,H 

2163 ADC 0 i THIS OPERATION SETS CARRY PROPERLY 

2164 POP D i RESTORE ORIGINAL OE CONTENTS 

2165 MOV A, 8 ; RESTORE ORIGINAL CONTENTS OF A 

2166 POP B i RESTORE ORIGINAL CONTENTS CF PC 

2167 RET J RETURN 

2168 HIL85: 

2169 POP H i IF HL CONTAINS 6FFFFH, THEN CARRY CAN 


WCF 78 2170 MOV fi,B i /OHLV BE SET TO 1 

0600 Cl 2171 POP B i RESTORE ORIGINAL CONTENTS OF REGISTERS 


0601 C33707 


2172 JH> SET » SET CARRY AND RETURN 


2173 i 

2174 i 

2175 % 


2176 

2.77 


2178 

2179 

2180 

asi 


FUNCTION: NMOUT 
INPUTS: A - 8 BIT INTEGER 
OUTPUTS: NONE 
CALLS: ECHO* PRVAL 


2182 

2183 

2184 

2185 

2186 
2137 
2183 


DESTROYS: A,B,C,F/F'S 

DESCRIPTION: HMOUT CONVERTS THE 8 BIT, UNSIGNED INTEGER lit THE 

ft REGISTER INTO 2 ASCII CHARACTERS. THE ASCII CHARACTERS 
ARE THE ONES REPRESENTING THE 8 BITS. THESE THQ 
CHARACTERS ARE SENT TO THE COMSOLE AT THE CURRENT PRINT 
POSITION OF THE CONSOLE 


2189 NMOUT: 


0604 

E5 

2190 

PUSH 

0605 

F5 

2131 

PUSH 

0606 

0F 

2132 

PRC 

96D7 

OF 

2193 

RRC 

0608 

OF 

2194 

PRC 

0609 

0F 

2195 

PRC ; 

06M 

ES0F 

2L Q 6 

ANI i 

0SDC 

CD 7J 02 

2197 

CflLL 

56DF 

4F 

2153 

MOV f 

06E0 

CDO506 

2199 

CALi. 

06E3 

FL 

2230 

POP < 


E-;?F 

2201 

ANI 1 

OSES 

CD 7l 02 

2202 

CALL 


SAVE HL - DESTROYED BY PRVftL 
i SAVE ARGUMENT 


GET UPPER 4 BITS TO LOW 4 BIT POSITIONS 
CHAR i MASK 'OUT UPPER 4 BITS - IffiNT 1 HEX CHAR 
HEXfiSC i CONVERT HEX TO ASCII IN ft 
,H ; LOffi C HITK CHARACTER CODE 
ECHO J SEND TO TERMINAL 
SH i GET BACK ARGUMENT 

CHAR , MASK CUT UPPER 4 BITS - HftHT 1 HEX CHAP 
HEXASC ; CONVERT HEX TO ASCII IN A 
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LOC OBJ LINE 

WE? 4F 220’ 

?6EA IC350b 2204 

SEED Ei 2205 

96EE C? 2206 

2297 


2203 

220 ? 

2219 

2211 

2212 

2213 

2214 

2215 

2216 
2217 
2213 
221 ? 
2229 
2221 
2222 
2223 


06EF 21EE07 2224 

2225 

96F2 4E 2226 

56F3 7? 2227 

06F4 37 2223 

06F5 C2FC06 2229 

66F3 COFFW 2239 

9SFB C9 2231 

2232 

06FC CD9506 2233 

06FF C€2D 2234 

0791 C09596 2235 

0704 23 2236 

9705 5E 2237 

0796 1620 2228 

9703 23 2239 

0799 lfl 2240 

979ft C0D496 2241 

3790 7E 2242 

079E B" 2243 

979F CR1707 2244 

0712 13 2245 

6 7 13 1A ‘ 2246 

0714 CDD406 2247 

2248 

9717 9E20 2249 

9719 COOK 2250 

071C 22 2251 

9710 C3F206 2252 

2253 


ASSEMBLES, V2, 0 MON ITS PAGE 42 


SOURCE STATEM3IT 

HOV C.A ; LOAD C WITH CHARACTER CODE 
CALL ECHO 

POP H i RESTORE SAVED YPLUE OF HL 
RET ) RETURN 


i 

> 


l FUNCTION: REGDS 
i INPUTS: NONE 
; OUTPUTS: NONE 

; CALLS: ECHO/ NHQUL ERROR/ CROUT 
; DESTROYS: A/ 8/ C, D/ & Hi F/F'S 

J DECRIPTIOH: REGDS DISPLAYS Tffi CONTBITS OF THE REGISTER SAVE 
; LOCATIONS IN FORMATTED FORM/ ON THE CONSOLE THE 

I DI5PLAV IS DRIVEN FROM THE TR8LE RTRB, HHICH CONTAINS 

i TIE REGISTER'S PRINT SYMBOL, SAVE LOCATION ADDRESS. 

/ AND LENGTH (8 OR 16 BITS). 

i 

REGDS: 

LKZ H RTRB ; LOAD H WITH ADDRESS OF START OF TABLE 
REG05: 

MOV C/M J GET PRINT SYMBOL OF REGISTER 
MOY A/C 

ORA A i TEST FOR 6 - END OF TABLE 

JNZ REG10 ; IF NOT BID/ ERftNCH 

CALL CROUT t ELSE/ CARRIAGE RETURN/UNE FEED TO BID 

RET ; /DISPLAY 

R£G10‘ 

CALL ECHO } ECHO CHARACTER 
MYI Cz 

CALL ECHO i OUTPUT EQUALS SIGN.. I. E. fi= 

I NX H / POINT TO START OF SAVE LOCATION ADDRESS 
HOY E/N ; GET LSP OF SAVE LOCATION ADDRESS TO E 
MV! D.RAMST Stf 5 . 8 i PUT MSP OF SAVE LOC ADDRESS INTO D 
INK H t POINT TO LENGTH FLAG 
LDftX D / GET CONTENTS OF SAVE ADDRESS 
CALL HHQUT ; DISPLAY OH CONSOLE 
MOV AH ) GET LENGTH FLAG 
ORA A i SET SIGN F/F 
JZ REG15 ; IF 0. REGISTER IS 8 BITS 
OCX D J ELSE/ 16 BIT REGISTER SO MORE TO DISPLAY 
LDftX D f GET LOWER 3 BITS 
CALL NHGUT i DISPLAY THEM 
REG15: 

HYI Cj ' ' 

CALL ECHO 

I NX Hi POINT TO START OF NEXT TABLE ENTRY 
JHP REG05 / DO NEXT REGISTER 



ORIGINAL PAGE IS 
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ISI5-I! SQ90/S085 MACRO fiSSEHSLER, l /3. 0 


MONITP PAGE *2 


ux 


LINE SOURCE STftTBBIT 


0720 215B07 
0723 110350 


0725 71 
0 T 27 B" 
0723 CA1E56 
072B B9 
8720 C, 92307 
072F 13 
0725 C32E07 


0732 23 
0734 44 
5735 40 
0725 C9 


0737 37 
0733 C9 


2253 ? FUNCTION: RGflDF: 

2250 i INPUTS: C - CHfiRfiCTER DENOTING REGISTER 

2260 ; OUTFUTS: EC - fiDDRESS OF ENTRY IN RT93 CORRESPONDING TO REGISTER 

2261 J CPUS ERROR 

2262 ; DESTROYS: ft Bi C, D, E. Hi L F/F'S 

2263 ; DESCRIPTION: RGfiDR TfiKES n SINGLE CHfiRftCTEP. RS INPUT. THIS CHfiRfiCTER 

2264 ) 

2265 ; 

2266 j 

2267 ; 

2263 ; 

2263 ; 

227Q ; 

2271 j 
2^72 RGfiOR* 

2273 LXI Hr RTF® ; HL GETS fiDDRESS OF TfiSLE STfiRT 

2274 LXI D,RTP£S ; DE GETS SIZE OF fl TfiELE ENTRY 

2275 RGB05- 

2275 MOV ft II ; GET REGISTER IDENTIFIER 

2277 ORA ft l CHECK FOR TftBLE END (IDENTIFIER IS 0) 

2273 JZ ERROR i IF AT END OF TftBLE, PRGUHENT IS ILLEGfiL 
2273 CMP C ; ELSE COMPARE TABLE ENTRY AH) fiRGUNENT 
2239 JZ RGA 10 i IF EQUAL ME'VE FOUND HHfiT VE 'RE LOOKING FOR 
22:31 m D ; ELSE INCREMENT TfiSLE POINTER TO NEXT ENTRY 

2232 JHP RGA05 ; TRY AGAIN 

2233 RGH10: 

2294 INK H > IF fl TSTCft INCREMENT TABLE POINTER TO 

2235 MOV B»H ; /SAVE LOCATION fiDDRESS 

2236 MOV C,L ; RETURN THIS VALUE 
2287 RET ; RETURN 

2233 ; 

22:39 ; 

2290 » 

2231 i 

2292 ; 

2233 ; FUNCTION: SRET 
2294 ; INPUTS: NONE 

2255 i OUTPUTS: CARRY = 1 

2256 ; CALLS: NOTHING 

2237 ; DESTROYS: CARRY 

2233 ; DESCRIPTION: SFET ;S JUMPED TO BY ROUTINES WISHING TO RETURN SUCCESS. 

2293 ; SRET SETS THE CARRY TRUE AND THEN RETURNS TO THE 

2358 > CfiLLER OF THE ROUTINE IHV OKING SRET. 

2301 ; 

2302 SRET: 

2303 STC ; SET CARRY TRUE 

2384 F£T ; RETURN APPROPRIATELY 
2355 ; 

2306 ; 

2207 J 
2303 ; 

2393 ; 

2310 ; FUNCTION: STHF0 

2311 ; INPUTS* DE - 16 BIT AC-DRESS OF 5Y T E ™ EE STC? ED INTO 

2312 ; OUTPUTS: ftC-HE 


DENOTES A REGISTER. RffiDR SEARCHES THE TAELE RTP9 
FOR fl MATCH ON THE INPUT ARGUMENT. IF ONE OCCURS, 
RGfiDP. RETURNS THE ADDRESS 'OF THE fiDDRESS OF THE 
SAYE LOCATION CORRESPONDING TO THE REGISTER. THIS 
ADDRESS POINTS INTO RTFS, IF NO MATCH OCCURS, THEN 
THE REGISTER IDENTIFIER IS ILLEGfiL BE- CONTROL IS 
PASSED TO THE ERROR ROUTINE. 
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is:s-l! MCRO flSSBSLa VI 0 NGNITR PPGE -14 


i.OC C3 f 

LINE 

SOURCE STATEMENT 


2312 i 

CALLS' SThLF 


2314 i 

C'F.fiROVS' ft*B* CiHiLF/F'S 


2215 1 

DESCRIPTION: STffO CHECKS THE HALF BYTE FLAG IN TEMP TO SEE IF 


2216 * 

IT IS SET TO LOWER. IF SO, STHF0 STORES A 0 TO 


2217 ) 

PAD OUT THE LOWER HALF OF THE ADDRESSED BYTE* 


2318 i 

OTHERWISE Tffi ROUTINE TAKES NO ACTION. 


231? ; 



2328 STHFEv 

873? 28FD20 

2221 

LDA TEMP i GET HALF BVTE FLAG 

872C B7 

2322 

ORA A i SET F/F / S 

073D C0 

2323 

RNZ i IF SET TO UPPER* DON'T DO ANYTHING 

373E 9E08 

2324 

MYI C*0 i ELSE* WANT TO STORE THE VAUIE 0 

9749 CW«7 

2325 

CALL STHF i DO IT 

9743 C? 

2326 

PET t RETURN 


2327 * 



2328 * 



23 2? ; 



2338 * 



2331 J 



2332 J 

FUNCTION: STHLF 


2333 ; 

INPUTS: C - 4 BIT VALUE TO BE STORED IN HALF BVTE 


2334 j 

DE - 16- BIT ADDRESS Cf BVTE TO EE STORED INTO 


2335 ) 

OUTPUTS: NONE 


2336 j 

CALLS: NOTHING 


2327 ; 

DESTPOYS: ft* B* C* H* L F/F-'S 


2338 i 

DESCRIPTION: STHLF TAKES THE 4 BIT VALUE IN C AND STORES IT IN 


2339 ) 

HALF OF THE BVTE ADDRESSED BY REGISTERS DE THE 


2340 * 

HALF BVTE USED (EITHER UPPER OP LOWER) IS DENOTED 


2341 1 

BY THE VALUE OF THE FLAG IN TEMP. STHLF ASSUMES 


2342 ; 

THAT THIS FLAG MS BEEN PREVIOUSLY SET 


2243 J 
2344 1 

(NOMINALLY BY ICND). 


2345 STH.F- 

9744 05 

2346 

PUSH D 

9745 Ei 

2347 

POP H ) HOVE ADDRESS OF BYTE INTO ML 

9746 7? 

2348 

MOV ft, C / GET VALLE 

9 Til 7 E60F 

2349 

fiHI 0FH j FORCE TO 4 BIT VALUE 

974? 4F 

2358 

MOV C*A J PUT VALUE SACK 

87<lfl 3RR>20 

2351 

LDA TEMP ; GET HALF BYTE FLAG 

074D 37 

'2352 

CPA A 5 CHECK FOR LOWER HALF 

074E C25797 

2353 

JH2 STK05 j BRANCH IF NOT 

8751 7E 

2354 

HOY A*H ) ELSE GET BYTE 

8752 E6F0 

2355 

AMi 9F0H f CLEAR LOWER 4 BITS 

9754 31 

2356 

ORA C ; DR IN VALUE 

9755 77 

2257 

MOV H» A * PUT BYTE BACK 

9756 C9 

2358 

PET * RETURN 


2359 S7HQ5* 

9757 7E 

2269 

NOV A*i1 ; IF UPPER kALF. GET BYTE 

0~5S E€0F 

2261 

m 0FH ) CLEAR UPPER 4 BITS 

9 T9 4’ 

2362 

MOV B..A 

9753 7? 


MOV AlC ; 'GET VALLE 

975C OF 

23 £4 

W C 

975D Or 

2365 

ARC 

975t OF 

2366 

FRC 

075F OF 

2367 

RRC i ALIGN TO UPPER 4 BITS 
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HONITR PfiQE 45 


L0C C8J LINE SOURCE STATEMENT 


0*0 :0 
9 7 5i 7? 
0 7 52 C9 


0753 '? 
0 7 64 Pc30 
0 7 55 FA2906 
0759 =33? 
0768 PA3 7 0 7 
076E CA37S7 

on FS4i 

0773 FA2905 
8775 Ft* 1 ? 
07T0 F22985 
0T7B C33757 


877E 79 
077F F52C 
0751 CfflTW 
0734 FEOD 
0755 CA3TQ7 
075? FE20 
075S CA3707 
0755 C325K 


2353 

226? 

2378 

2371 

2272 

2373 

2374 

2375 

2376 

2377 

2378 

2273 
2388 

2381 

2382 

2383 
2234 
2385 
2286 
2287 
2283 

2289 

2290 
2n 

2392 

2393 

2294 

2295 

2396 

2397 

2398 

2399 

2400 

2401 

2402 
2482 
2404 
2485 
2406 
240? 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 


JRA 8 ) OR IH ORIGINAL 4 SITS 
MOV M ! PUT HEN CONFIGURATION BACK 
RET > RETURN 


FUNCTION: VALDG 

INPUTS: C - ASCII CHARACTER 

OUTPUTS: CARRV - 1 IF CHARACTER REPRESENTS '.4110 HEX DIGIT 
- 0 OTHERWISE 

CALLS: NOTHING 
DESTROVS: HF/F'S 

DESCRIPTION: VALOG RETURNS SUCCESS IF ITS INPUT ARGUMENT IS 

AN ASCII CHARACTER REPRESENTING A VALID HEX DIGIT 
<8-9,fi-F>, AND FAILURE OTHERWISE 


VALDG: 

MOV AC 
CPI '0' ) 
JI1 FRET ; 
CPI *¥ } 


TEST IF CHARACTER IS A '0' 

IF ASCII CODE LESS; CANNPT BE VALID DIGIT 
ELSE/ SEE IF IN RANGE 
JM SKET ) CODE BETWEEN '0" AND 
JZ SRET J CODE EQUAL '9' 

CPI 'A' ; NOT A DIGIT - TRV FOR A LETTER 
JH FRET i NO - CODE BETWEEN '9' PHD 'A' 

CPI 'G' 

NO - CODE GREATER THAN / F / 


JP FRET / 
JHP SRET 


<m - CODE IS 'A' TO 'F' / INCLUSIVE 


; FUNCTION: VALDL 
i INPUTS: C - CHARACTER 

i GUTFUTS: CARRY - 1 IF INPUT ARGUMENT VALID DELIMITER 
i - 0 OTHERWISE 

t CALLS: NOTHING 
i DESTRO’t’S: HF/F'S 

DESCRIPTION: VALDL RETURNS SUCCESS IF ITS INPUT ARGUMENT IS A VALID 
DELIMITER CHARACTER (SPACE COMMA/ CARRIAGE RETURN) AND 
FAILURE OTHERWISE 

VALDL: 

MOV A/C 

CPI V j CHECK FOR COMMA 
JZ SRET 


241? CPI CR 5 CHECK FOR CARRIAGE RETURN 
2413 JZ SRET 

241? CPI ' ■ ; CHECK FOR SPACE 
2428 JZ SRET 

2421 JMP FRET / ErRC-R IF NONE OF THE ABOVE 

2422 j 
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I5I5-I1 wfiCRO ASSEMBLER! Y3.0 HONITR PAGE 


LOC CBJ LINE SOURCE STATEMENT 

2 4 P J 

2425 i 

2426 J DUH1V INTERRUPT ROUTIHE ENTRY POINTS 

2427 i 

2423 TRfiPPR: 

2423 RE5ET5: 

2420 RESETS r 

2421 RSET65: 

2422 RESET?: 

2433 RSET75: 

3791 F3 2434 El J ENABLE INTERRUPTS AGAIN 

9792 C9 2435 RET ) RETURN TO VECTOR POINT 

2436 J 



2444 J 

2445 ) 

2446 SGNON: i SIGHON IESSAGE 

0793 0D *44? Pg CR-LF, 'STDMON VER 1 0', CR, LF 

0794 09 

0795 535444J0( 

3799 4F4E2920 
0790 23564552 
07*1 2Q"1 2E3 e 

0795 00 

0796 59 

0014 2443 LSONON EQU $-SGNON ) LENGTH OF SIGNON MESSRGE 

2449 ; 

2456 CfiDR- i TPSLE OF ADDRESSES OF COfflftND ROUTINES 

■?-•* 0000 2451 OH 0 i DUSMY 

0 7O 9 -“05 2452 m 4CKD 

07PB 3F05 2453 PH SCUD 

5790 1F05 2454 NJ HCHD 

079? OH* 2455 DU IOC 

3731 S 7 54 ?456 CW GCffi 

5753 3654 2457 OH PCND 

2458 > 

2459 CT93: J TAEL £ OF VfiLID COttWC CHftRfiCTEF5 

9755 44 2468 08 -'P' 

Fit * 2461 OB 'G' 

57*7 *9 2462 DB 'I' 

5758 4[t 24£ p* 'tf 

5"39 53 2464 08 'S' 

9759 2^*5 08 '.V 

0006 2466 NCKDS ECU 1-CTnB i NOHEER OF VALID COfiSANPS 

2467 ; 

2468 RTA3 : * T99LE OF REGISTER IffORNATIQN 

■J"=5 41 2469 D8 ■ REGISTER IDENTIFIER 

87P0 55 2470 na ttSRV AND gFFH ; fiirSS OF REGISTER SAVE LOCflTIC'i 
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k-K’ - oss nkfb assessle*. u: a 


original page is 
OK POOR QUALITY 


Ffiss 47 




3.520 

3929 CIf405 
0923 C3DF55 


062 


„:*£ SOURCE STATEMENT 

?.47i 15 0 s lEN-FA ?LP5 - 3=3 BITS, 1*16 El's 


0903 


CTflQ£ rr,i £**07CCf ■ 

?“:Z it 

2473 

obV * 

5“:? 

2-7* 

OB SSflV AND 9FFH 

8?C§ •>? 

d / ^ 

K 9 

o“Ci 43 

1*76 

» ‘O' 

07C2 Si 

2477 

OB CSflV AND 0FFH 

8703 89 

247S 

C* 0 

3"’-4 44 

2475 

0? ••£>•• 

8703 EA 

2488 

08 OSnV END QFFH 

0705 99 

2481 

03 0 

3 7 C7 45 

2482 

oe 'E' 

87C8E9 

2483 

C€ ESPY PHD 0FFH 

87C9 90 

2484 

08 0 

07Cfi 46 

2485 

09 '¥' 

97C8 ED 

2486 

05 FSfiV AND 9FFH 

97CC 08 

2487 

95 9 

07CD 4? 

2485 

08 ‘T 

97CE Pi 

2489 

08 ISA'/ AND 0FFH 

07CF « 

2439 

03 9 

0**3 

2451 

06 ‘‘W 

IL 

r 

2452 

09 HSR'/ AND 8FFH. 

■3712 55 

2453 

OB 9 

3703 40 

2434 

05 ‘V 

0714 E- 

2435 

05 LEA/ AND 0FFH 

3705 05 

2456 

kB 0 

9726 4i< 

245? 

06 ‘TT 

973 “ Fa 

2455 

OB HSfiV AND 0F~- 

5 01 

245? 

OB 1 

0”? ?3 

2589 

OS 'S' 

0”S 

2501 

[* sspv+i «£• £fCU 

9“C3 *31 

2502 

OB 1 

•3~C 59 

2593 

OB •'»' 


2504 

r* sy57*i AMO 0FH 

0-DE 5. 

2505 

05 1 1 

;»r • jss 

2506 

OS 9 : END OF TfiEi 

5~3 39 

259? 

£iP g 


2598 

> 


CFG spre^. RANCH t«L£ FOR U5EF 

JM? 03 it TTV CONSOLE OUTPUT 
JNP Cl i'TTV CCHSOLE INPUT 


2505 
2519 

2511 

2512 

2513 i 

2514 : 

2515 T7YADY tOU 27n 

2516 ; 

2517 
2:13 
2515 
2523 


USER ACCESSIBLE c Vv’:7si 


j 

i COSSN/OjOCK/ FlfiGi. -LPSIp FLAGS; TIHlSB- TlfH’EBj BYTE 

r 

: CLOCK FLAGS AMO COUNTED 




2?:: 

S24 

2525 


GSS USR6R-6 • 3D 
08 0 > 1 ‘SEC PLP5 
03 9 i SO «£■£ FLAG 
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20 * 0 , 5*35 hacpo assemble*, *-a. o 


KONITR jjjws u* 


LINE SOURCE STATEfSHT 


?’.Va 

Ik; » 

00 

ac7 w 


5iVO 


23CS S3 

2K 4 2'? 
2K5 93 
;vr 9? 
20CD 32 
2SCS 33 
1K~ 23 
£*9 0(3 

im 
2001 00 
2302 30 

2003 00 

20M 00 

2005 00 

2006 00 


23H 


20cs so 

Tjkh 53 

2SE5 Oy 
2KS 09 
25ED 00 
20E S0 
29EF 00 
20F0 09 
20F1 00 

2«F2 so 
20F3 99 


2526 ft 0 > i SEC FLAG 
252? ft 3 j SECOND COUNT LSS 
2528 OB 8 ; SECOND COUHT MSB 

2523 06 0 j NOT USED 
2938 J 

2532 ; 

2533 ) IN THE FOLLOWING LOCATIONS- THE USER MAY PLACE JUMP INSTRUCTIONS T ? 

2524 i ROUTINES FOR HANDLING THE FOLLOWING;- 

2535 i ft) RST 5-6 & ? 

2536 ; 8) HARDWIRED USER INTERRUPT (PST 6. 5) 

253? ; 0 KEYBOARD "VECTORED INTERRUPT" KEY (PST 7. 5) 

2533 ; 

2533 ORG USRER ; START OF USER EFR.NCH LOCATIONS 

2 : “3 ,i 

2541 RSET5: OB 0,0,0 ; JUMP TO FST 5 ROUT HE 


25*2 RSET6: OB 0,0,0 . JUMP TO RST 6 ROUTINE 


2543 SETS?: » 0,0,0 ; - JUMP T 0 RST 6. 5 (HARDWIRED USER IHTEF*** 


2544 TSfiPEP Eft' f 

2545 RSET7: ft 0,0,0 ; JUMP TO RST 7 ROUTINE 


2546 iJSIhl; DS 0,0,0 ; JUMP TO ‘VECTORED INTEFEL®?** fEY ROUTINE 


2547 


2543 n 
2543 i 




255» SPACE IS RESERVED HERE C CR r -E rSNlTOR STACK 

2551 * 

2552 j i> « * * 

2553 t 

2554 ORG MNSTK j START OF MONITOR STACK 

2555 ( 

2556 ; SAVE LOCATIONS FOR USER REGISTERS 

255? ; 

2558 ESAY: W 0 ; E REGISTER 

2559 DSflY; 0-6 0; 0 REGISTER 

2560 CSAY: DB 8 ; C REGISTER 

2561 BSPV: ft 3 ; E REGISTER 


2562 FSfiY; 

2563 fiSRV: 

2564 L5RV: 

2565 HSAY: 

2566 ISrY: 


t-B 0 
DB 0 

reo 
re 3 
re 0 


FLAGS 
ft REGISTER 
L REGISTER 
H REGISTER 
INTERRUPT f«£K 


2567 *SAY: ; PROGRAM COUNTER 


2568 POSY* ft 0 s lCU ORDER BYTE OF PC 

2569 PCHSY: « i • HIGH ORDER BYTE OF K 

2570 SSftV; ; STACK POINTER 


542 



ORIGINAL PAGE IS 
OF POOR QUALITY 


!;!;-!* i'OfO'iC'SS MACRO “iii'ilSPt V3. 5 


“ftfjjTS per.: 40 


L." .:<<E SOURCE STATEMENT 

fis 25 7 i SPLSY: DB 0 ; LOW ORDER BYTE CF STACK POINTER 

28F5 50 &2 SPHSY; DB 3 > HIGH ORt€R EYTs OF STACK JOINTER 

2573 i 

2574 ; *»*“» * »■* -vm 

2575 ; 

2576 ; MONITOR STORAGE LOCATIONS 

2577 > 

HFS 0330 2570 OJRP.D: DN 3 ; CURRENT ADDRESS 

205? 30 2579 CURDY: DB 0 ; CURRENT WTfl 

20F9 2588 OBUFF : DS 4 ; OUTPUT BUFFER 

2581 TEMP: ; TEMPORARY LOCATION FOR TTY MONITOR 

2582 i TEMPORARY LOCATION FOP, SINGLE STEP ROUTINE 

20FO 38 ’ 2583 RGPTR: DA 0 ; REGISTER POINTER 

20FE 00 2584 IBUFF: DB 0 ; INPUT BUFFER 

20F 00 2585 USCSR: DB 9 ; USER SHOULD STORE IMAGE Cf CSR HERE FOR EACH TIME S T E° 

2586 ; /CSR IS CHANGED. OTHERWISE SINGLE STEP 

2587 t /ROUTINE HILL DESTROY CSR CONTENTS 



2558 

END 




P'jSLIC SYMBOLS 






Cl A 05C? 

ON. 'BN 

A 05EB 

CO 

A 05F4 

DELAY 

WHITS A 0003 

MSECiH A 0Z9D 

MSECS® A 03A3 

HSEC2H 

S.CEFAL SYMBOLS 






INTSsr ? 0000 






USES SYMBOLS 






“BrSi A 02F8 

ADFLD 

P 0000 

fiDISP 

A 0090 

ASAY 

gBCW? A 001B 

BRTAB 

A 0920 

BSAV 

A 20EC 

CADR 

CLDIS A $106 

aosr 

A 01DC 

CLEAR 

A 81CD 

CHD10 

CMKND A 0064 

CNIH 

A 00 DC 

CNOUT 

A 00DC 

CNTRL 

COMMA A 0011 

CONOR 

A 00DD 

CONSCP A 00DE 

CR 

CSS A 0020 

CS7AT 

A 00DD 

CTA9 

A 07B5 

CURED 

DCM15 A 04AD 

OCI1D 

A 0486 

DDISP 

A 0094 

DELAY 

DO" A 6001 

DSAV 

A 20EA 

DSFDT2 A 0380 

DSPDT4 

:~jj A 0081 

ECHOS 

A 060E 

ECH10 

A 061C 

ECHO 

lRMSG A03E3 

ESS 

A 01FF 

ERROR 

A 061E 

ESA« 

EXW35 A 00AF 

EM10 

A 00C8 

EXMSG 

A 03E7 

FRLSE 

G10 A 03FA 

GCM95 

A 04CC 

GCN10 

A 04D2 

GOOD 

GETfiM A 8668 

awes 

A 0639 

GHK10 

A 0652 

aM05 

OKS A 06A2 

GNH20 

A 06A6 

GO 

A 0445 

GOCMD 

6TH05 A 3214 

GTH10 

A 0231 

GTH20 

A 0237 

GTH25 

HEDrrSC A 3274 

HIL05 

A 06CE 

HILO 

A 86AD 

HSAY 

ICH0S A81E9 

ICM10 

A 0508 

ICH20 

A 0519 

ICH25 

INSDG A 3286 

INTPPT 

E 3000 

INVRT 

A 00FF 

ISAY 

LETRD A 00C4 

LETSE 

A 00C5 

LETRF 

ft 06C6 

LETRH 

LE7RR A 03D2 

LETSS 

A 0OD3 

LF 

ft 000ft 

LOWER 

IfCMD A 051F 

MNSTK 

A 20E9 

HONITR A 0600 

HGNRHC 

HSECDT A 03P6 

HSGL 

A 044E 

NCMDS 

ft 0006 

NEHLN 

NOPEV A 3074 

NUIC 

A 0035 

NUMRG 

ft 8000 

NXTCOL 

X 1 i r T A S29E 

PCHSV 

A 2fiF3 

PCLSW 

ft 20F2 

PERIO 

SAMST A 2030 

S£R 

A 0040 

RDKBD 

ft 02C0 

FDYTBL 

REGDS A KEF 

SSSiO 

A 303F 

RESETS A 8791 

PESET6 

SGA65 A 3726 

c £fil9 

A 8733 

ROADS 

A 0720 

RGLCC 


A 0383 

DISP1 

A 02AB 

GO A 0449 

hE'SSC A 0274 

;! 0397 

OUTPT 

A 029E 

POKED A 02C8 

SECDT A 0351 


A20EE 

BLANK 

A 00(93 

BLANKS 

A 

03DB 

SINKS 

fi 02OF 

A 07A7 

COATR 

A 00OC 

Cl 

A 

05DF 

5L-sf. 

A 0805 

A 0087 

0445 

A 8093 

CTtDAD 

A 

03B B 

CMDTB 

A 03B5 

A 00D1 

CHV5N 

A 05EB 

CO 

Q 

05F4 

COLCNT 

A 02E2 

A 000D 

CROUT 

A 05FF 

>CSAV 

A 

20EB 

CSNIT 

n 0089 

A 2GF6 

CURDT 

fi 20F8 

DCM05 

A 

049D 

D : .M10 

A 0498 

A 638B 

DELENT 

A 93AA 

DISPi 

A 

C'ifiE 

DI2PC 

A 01E3 

A 0373 

DSPLY 

A 80D0 

OSPNUP 

a 

03*34 

DSPTB 

A 03C4 

R 0605 

EIGHT 

A QQE"? 

EMPTY 

A 

0088 

ENCODE 

fi. &F3 

A 20E9 

ESC 

A 0018 

EXAM 

A 

009E 

EJ.iT 

ft 0623 

+ 0001 

FIVE 

A 0085 

FRET 

A 

0625 

FSAY 

fl 20ED 

A 0467 

GETCH 

A 062C 

GETCM 

a 

0457 

GETHX 

fi 0633 

A 066F 

GHK10 

A 0684 

GNN15 

A 

0692 

GNM20 

ft 0697 

A 06DB 

GTC02 

A 0463 

GTC05 

A 

0479 

GTC10 

A 04?C 

A 0243 

GTHEX 

fi 020D 

hchaf: 

R 

iti 

'»i 

HEM09 

fi 027E 

A 20F0 

HXDSP 

fi 024E 

uyncp? 

A 

>3260 

ieijFF 

A' 20FE 

A 9516 

ICND 

fi 04D5 

INIHT 

A 


I’ll TUT 

fi 0000 

A 20F1 

IXTRA 

fi 00C1 

LETSS 

A 

MC2 

LETRC 

A 08C3 

A 00C3 

LETRI 

fi 00C9 

LETRL 

Q 

M0CC 

LETRP 

A 00D3 

A 0000 

LSAY 

A 20EF 

LSGHON 

A 

3614 

MCH05 

A 9527 

A 007E 

PEEC1H 

A 0350 

MSEC29 

A 

§3*2 

MSECiH 

A 039? 

A S80F 

NKOUT 

fi 06D4 

IB’lTEL 

A 

0433 

nocot 

A 0000 

fi G2C4 

NXTF.G 

A 923F 

OBUFF 

A 

29F? 

00795 

ft 02R0 

ft 0910 

PffiPT 

fi 09AO 

FSTW 

fi 

M7F 

FSAY 

H 20F2 

A 93F3 

&EG05 

A 06F2 

F:EGil3 

A 

C5FC 

REG15 

A 0717 

A 0791 

RESET? 

A 0791 

FETF 

ft 

0103 

RETT 

A 030B 

A 030D 

PGNfttl 

A 031A 

SGPTS 

Cj 

02 FB 

RGPTR 

A 20FD 
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isis-n mi-ms hscfo asseksler. vs. o honitr pks « 


SQTgi_ ft 

5SST7 ft 20W. 
PTPBS ft 0062 
SGfiCN ft 6792 
55TEP ft 010? 
STP23 ft 014C 
TEMP ft 26FD 
IWHSK ft m. 
USIKT ft 2004 
XCMie ft 0590 
ZERO ft 0690 


RKEMT ft 02FE 
EET75 ft 0791 
"TW ft 0544 
iXU i ft 0012 
STW5 ft 6757 
5725 ft 014F 
TERM ft 001B 
UPOftD A 036F 
USRBR ft 26C8 
XCH20 ft Q5N 


RHUSE ft 6617 
Ri765 ft 0230 
‘CHID ft 054 F 
SHSG ft 82EF 
5THF6 ft 0729 
SUB0S ft 0194 
TRfiPEP ft 2601 
UPDOT ft 6270 
VfiLOG ft 0763 
>025 ft 05CD 


ROHCNT ft 02Efl 
RSR10 ft 6241 
SCM15 ft 055= 
SPHSV ft 26F5 
STHLF ft 97*14 
51)610 ft 01Sft 
TRRPPP ft 6791 
UPPER FI 06FF 
VfiLTL ft 077E 
XCH27 ft 65CE 


PiET5 A3KS 
PST65 ft 20CE 
ECW ft 652= 
iPLSV ft 10F4 
STP20 0 0120 
EUB15 ft 01C5 
TEL’S + 0000 
URTPC ft 00=0 
>005 ft 0576 
>020 ft 6506 


FEET? ft l'j»; 
ciT.w a 

U >t'l mmmmU 

SECC'T ft C'lfti 
spet ft hi? 

STP21 ft 0142 
SUBST ft 017F 
TTVftOV ft 0027 
URTSPC ft 0003 
XCM10 ft 0585 
XCHO ft 0562 


FEET65 ft 
RTSs ft 0756 
iETP.u ft 0254 
6:ftV ft 20F4 
STP22 ft 0149 
TEE ft 6080 
UERLN fl000F 
USCSft ft 20FF 
IXH15 ft 0592 
KHSQ ft 036B 


ftSSHStV COTiPLElE WO ERRORS 
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SUBMIT e^KUCSpaj' 
5.iHl r s ‘3W.VCS9iP' 
SUBMIT TOWYCSEH' 
-lcIT F2PWVCSWT. 
?;5Mi T Pf&WVCSOS^ 
ejjwijT ?OPTPN , "CSICl h 
SUBMIT we-M.i-CICON’ 
■ji.oj.ut e/jprc»|,ijcs;»p> 
qgf'IT Pi»F 4 l | 'C5!OZ‘’ 
qrcMIT FOPTFN n /CSTP?> 
qioMTT «?ote.y(;C(jp_\ 

SUBMIT «mp''VCSI0X' 
SUBMIT RSMELWCSIOD) 
SUBMIT flSMELPUNTFPT) 
SUBMIT P9ftP/CEFPLP 
SUBMIT PSMGLSCTfiELE5> 
SUBMIT ftSKLKOEFTRP 
SUEMI T PSMELPaiONITR) 


ORIGINAL 
0F POOR 


p AO, c : ft 
QUALITY 
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p ?P7?a -*i ;;g rr,c 

lit w .ij». 

P5LT5 ri .'.'O jt 


OPIffiSM. Pft«f P 

jf HClOB QUAtVTJ 
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ocU't'A *;$ 6c|i| ’fircf F'LS ItOC'i! 
rncv' ci •«# jo \s-‘ 
r. ? _rre Fi ^ iST 
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-- - * , 1 — t> t 0 

*ij» t^Sl TM CPTW7,- ft ( ri *, i'Z 

iftl -i W>> 4 

'>*$£' WTf* fPCrl CCft MPKP.V'i 
W T ?'2i^> jTsrivjr.v.^' / ** ’ 

CpC-5- 4 >KhS«> ^^cvmV^,* 

■ ''-few . ( -r.swp£ . Vk v sv , , 

''g? s B/* , ‘ 3MeN) • 

- iv t . < vv-- , v ’ 
/prex,*. .v^Tjiju) , / M0?fj£e ,v 'vreuw 

'CV7VK/<?Si.i#.4 


/ IOFV£C. y ' , fffi-W>i. 

/PCppWCYWOfj,£ 

''COMTW/^'StJyj 

; ??iPCF' v ?aC£u;< $ 

'SEWr/tflKfM 

1^J0AS5*4H>4 

/pPav-/<£5?CH)4 

/VOPWogjCHU 

■ / EP c et.T^e^4H) i 

pjp4ijyj 


C0!W ,r i VCSLOC. w "i I_p 
5ELETE :Fi 'VC:"lCC 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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UVK -VCSPW. CSJ, :Fi'VCHlP. OBJ, s 
Fi WOSEW l IB, -Fi VCSMft 'OBJ, « 

"i^C.'rrcp lib, f 

r-I-'.'CSICS LIB. iFi-FCSIOLLlfci 
' Fi TC ELE3 -OBJ.. :n:E€rT». OBJ, -FiiDEffilT OBJ, 4 
MfiWJN LIB- FSCNM. LIS, F=£F. LIB, « 
pwjljLL, ‘.IB PJ'BO. LIB? 

7? -Fi '-'CjFF*! UflC 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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KITE FI VC;* LI?, 'Flits L'G. LIB, :Ft:H0NTr3. LIB 
LIS 

rwa-rc * Fi : VCS5PS. LIB 
WO Pl'WSiLP OBJ TO Fl:vCSSFi.UB 
,'pcqTp Fl VCStCS.LIB 
WD 'Fl VCSifP OBJ TO Fi VCSICS. LIB 
WO -n VCsCOV 0BJ TO *Fi .-VCrZCS. LIB 
C®E?’E n WFB LIS 
-00 Fi f-OHm.OBJ TO •FIrMCIP’fiB. LIE 
WO c i ! l fFP T OBJ TO c i:“QNTPB LIS 
WO P L T WLES. OBJ TO ; Fi : MONTHS. LIB 
WO 'Fl ,pre ffl.T. OBJ TO *F1 HOMTFfi. LIB 
000 Fl ' r S.Oej TO Fi-WMP.B. LIB 
CPESTE -F1YCSEXS.LIB 
m -FtVCSCHT OBJ TO :Fi: WEES. LIB 
fiOO FiiVCSEffl. OBJ TO : Fi : VC5EXS. LIB 
000 ,p l VCSTPP. OBJ TO ■ Fi : VCSEXS. L IB 
CFSffit :F1:MSWLIS 
IWD -Fi-VCSOBG OBJ TO :Fi 0E3LH1 LIB 
CFERTE -Fl uCSIOLLie 
ODD :F1VCSI0U OBJ TO :Fi: VCSIOL LIB 
ROD -Fl vcm 08J TO :F1:VCSI0LLIB 
ROD -F1VCSICD OBJ TO :Fi- VCSIOL LIB 
WO ■F1-VCSI02.0BJ TO -Fi:YCSIOLLIB 
WO ‘FI VCSIOX OBJ TO : p i: VCSIOL Lie 
EVIT 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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PELTS ^l-WKLLJS 
LIB 

;c«tt ei f.i? 

app «i^CS!ft t CSJ T : e i «CSKLi.!B 
«W» •« v;?KP %? ™ n vISIOLUB 
apr. ei-^fty not m s i:'>ISi’}LLlB 
ar.ft ci tf-W. w? T 0 ^i'^SMSL'-IS 
4^ c i CS* T 3 s i -CSlOLuIS 

?;i t 
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